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I.  INTRODUCTION 


An  embedded  tutorial  is  ideal  as  a  training  device  for 
individuals  required  to  utilize  a  computer  in  their 
operational  tasks  because  it  possesses  all  the  advantages 
of  computer  assisted  instruction  (CAI),  while  reducing  its 
major  disadvantage,  cost.  CAI  improves  the  student's 
knowledge  of  the  subject  because  it  continues  to  give 
additional  information  until  the  individual  achieves  the 
desired  level  of  performance.  Studies  have  shown  that  this 
has  resulted  in  higher  test  scores  at  the  end  of  the 
instruction  period  and,  in  most  cases,  the  student 
finishes  in  a  shorter  amount  of  time  than  that  required 
for  conventional  instruction.  One  shortcoming  of  CAI  has 
been  a  rise  in  the  student  attrition  rate  while  using 
computer  based  instruction  in  some  applications.  Attrition 
rate  studies  show  that  the  use  of  computer  based 
instruction  often  increases  the  amount  of  student 
failures?  however,  in  the  case  of  ASW  trainees  the 
attrition  rate  is  decreased.  This  could  be  traced  to  the 
fact  that  the  selectees  for  ASV.T  training  are  of  a  slightly 
higher  initial  aptitude  and  are  more  inclined  towards  use 
of  a  computer  since  their  operational  jobs  involve  the  use 
of  some  type  of  computer.  Apparently,  a  machinist  mate 
being  trained  on  the  repair  of  a  pump  would  feel  frustra¬ 
ted  in  not  being  able  to  get  his  hands  on  the  equipment 
and  thus  would  reject  ths  use  of  this  type  of  training. 
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The  embedded  tutorial  described  in  this  paper 
demonstrates  the  capabilities  of  a  computer  and  a  color 
graphics  console  in  the  training  of  a  prospective  ASV 
tracker.  It  is  only  a  demonstration  because  the  actual 
system  is  not  fully  developed,  the  actual  type  of  color 
graphics  console  was  not  available,  and  the  actual  data 
for  test  cases  were  unattainable . 

The  numbers  throughout  this  paper  fall  into  three 
general  classif i cations ,  common  knowledge  values,  general 
range  values,  and  specific  constraints.  The  common 
knowledge  values  are  those  numbers  that  can  be  found  in 
any  basic  textbook,  such  as  the  speed  of  sound  in  water, 
and  thus  are  not  classified.  The  general  range  values  are 
those  where  a  spectrum  of  values  could  be  sighted  and  thus 
a  random  value  was  picked,  for  example  41.3  as  the 
frequency  of  the  signal  being  detected.  The  last  numbers 
used  throughout  this  paper  are  a  series  of  XXX's  that  are 
substituted  for  values  which  could  not  be  revealed  for 
security  reasons.  The  actual  values  would  be  included  in 
the  operational  tutorial. 

The  tutorial  permits  the  user  to  proceed  in  any  of 
three  areas  of  study  depending  on  his  abilities  and 
previous  training.  There  is  a  basic  tutorial  or.  the 
overall  system,  the  environmental  problems,  and  the 
formulas  used  to  tranform  the  data  into  useful  displays. 
Next,  there  is  a  short  tutorial  on  the  types  of  data 
displays  that  a  tracker  will  use  in  the  operational 


ie 


system.  Last,  there  is  a  set  of  scenarios  that  can  he  used 
to  refresh  the  skills  necessary  to  effectively  track 
vessels. 
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II.  EMBEDDED  TUTORIALS 


A.  PURPOSE  0^  EMBEDDED  TUTORIALS 

An  embedded  tutorial,  as  discussed  in  this  paper, 
means  the  use  of  computer  aided  instruction  (CAI)  on  the 
computer  and  graphics  terminals  that  are  actually  used  to 


t  rack 

ta^ets.  The 

purpose 

of  embedding  the 

tutorial 

in 

the 

operational 

system 

is  three-fold: 

fi rst  , 

the 

individual  being 

trained 

becomes  accustom 

ed  to 

the 

surroundings  and  the  response  time  of  the  terminal; 
second,  since  the  computer  and  terminals  are  already 
present  and  there  is  room  in  memory  to  store  the  tutorial, 
this  procedure  is  more  cost-efficient  than  a  separate 
system  or  conventional  training  methods?  third,  it 
provides  a  reference  manual  for  an  operator  actually  using 
the  system.  There  are  many  more  subtle  benefits  in  using 
an  embedded  tutorial.  By  training  an  individual,  at  lQast 
partially,  on  the  actual  operational  system  a  great  deal 
of  the  anxiety  of  a  young,  inexperienced  operator  can  be 
relieved.  The  operator  will  become  familiar  with  the 
computer,  the  system,  and  their  idiosyncracies ,  and  thus 
be  more  comfortable  when  the  pressure  of  the  mission 
begi ns . 

An  embedded  tutorial  maintains  all  the  advantages  of 
computer  based  instruction  while  reducing  one  of  its  major 
disadvantages,  cost.  Since  the  tutorial  is  part  of  the 
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operational  system,  a  major  part  of  the  cost  is 
eliminated.  Tver,  if  some  additional  memory  and  terminals 
have  to  be  installed,  great  savings  are  achieved.  The  data 
collected  by  several  surveys  shows  that  ever.  with 
stand-alone  computer-based  instructional  systems  the  money 
saved  because  of  reduced  training  time  balances  the  cost 
of  the  system. 

While  manuals  could  be  provided  for  the  user  to  review 
when  a  problem  arises  on  the  operational  system,  it  would 
be  more  beneficial  for  the  user  to  see  the  solution  or 
course  of  action  on  the  terminal  being  used  at  that  time. 

A.  picture  of  a  surface  plot  in  a  book  cannot  comoare  to 
one  on  a  color  graphics  terminal  and  the  computer  can 
produce  a  vast  amount  of  variations  corresponding  to  the 
particular  problem.  Since  the  embedded  tutorial  is 
attached  to  the  operational  data,  the  reference  material 
could  be  kept  constantly  up  to  date. 

B.  SYSTEM  SETUP 

This  tutorial  was  designed  to  demonstrate  some  of  the 
capabilities  of  a  color  graphics  system  to  provide  a 
computer-based  instructional  package.  While  the  Ramtek 
100A  used  for  this  study  performs  many  of  the  desired 
functions:  easy  color  manipulation,  simple  inout  devices, 
quick  response  to  user  input,  and  fair  picture  resolution, 
the  proposed  Ramtek  9400  system  has  superior 
characteristics.  It  out  performs  the  100A  system  in  speed, 
resolution,  and  other  capabilities.  The  Ramtek  9400  is  on 
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the  order  of  ten  times  faster  than  the  present  system.  It 
also  has  32 K  x  32X  virtual  picture  and  a  1324  x  1233 
screen  resolution  which  enables  the  displays  to  aopear 
much  more  lifelike.  Some  of  the  capabilities  of  the  Bamtek 
9400  that  enable  the  designer  of  a  tutorial  more 
flexibility  are:  panning,  zooming,  blinking,  rotation  in 
90-degree  increments,  scrolling  up,  down,  right,  and  left 
within  arbitrary  rectangular  limits.  interrupts,  and 
delays.  Since  all  of  these  function  are  incorporated  in 
the  machine,  the  coding  of  a  tutorial  or  any  program  will 
be  greatly  reduced.  A  Ramtek  9400  is  presently  being 
installed  at  the  Naval  Postgraduate  School  Computer 
Laboratory,  which  will  allow  the  further  development  of 
this  tutorial  system. 


C.  ADVANTAGES  /  DISADVANTAGES 
1 .  Student  Achievement 

The  effectivenss  of  computer  aided  instruction 
compared  to  conventional  instruction  has  been  Pleasured 
only  by  student  performance  and  not  by  on-the-job 
performance  after  graduation.  Student  achievement  night  be 
an  aid  in  predicting  quality  of  performance  on  the  job  but 
the  correlation  between  these  two  measures  has  not  been 
established  for  any  of  the  training  methods.  Student 
achievements  have  shown  that  computer  aided  instruction  is 
as  good  or  better  than  other  methods  in  practically  all 
cases.  The  fact  that  student  achievement  with  computer 
aided  instruction  (CAI)  is  better  tha*'  conventional 
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instruction  or  indiviiuali  zed  instruction  ray  also  "be  a 
direct  consequence  of  the  fact  that  students  instructed  by 
CAI  rerain  in  these  courses  until  they  have  rastered  all 
the  lessons.  The  critical  variable  thus  becomes  the  amount 
of  tire  needed  to  complete  courses  given  by  computer-based 
instruction.  An  additional  benefit  is  achieved  by  ensuring 
that  an  individual  has  rastered  all  of  the  lessens  needed 
to  be  a  qualified  tracker  in  the  fleet. 

2 .  Student  Time  Savings 

Findings  in  a  report,  IDA  paper  P-1375,  prepared 
for  the  Office  of  the  Under  Secretary  of  Defense  for 
Research  and  Engineering  shows  that  computer-based 
instruction  saves  about  one-third  of  the  time  required  for 
courses  using  conventional  instruction;  however,  there  are 
wide  variations  in  the  amounts  of  savings  that  have  been 
reported.  Two  major  uncontrolled  variables  in  thes® 
studies  are  the  unknown  quality  of  the  instructional 
materials  used  in  the  various  comparisons  and  uncertainty 
that  the  same  amounts  of  course  materials  were  used  in 
both  methods  of  instruction. 

The  fact  that  CAI  saves  time  is  consistent  with 
well-known  information  about  the  effect  of  great 
differences  both  in  student  abilities  and  in  knowledge  of 
the  subject  at  the  start  of  any  course.  In  conventional 
instruction  with  a  fixed  amount  of  time,  these  differences 
lead  to  variations  in  the  amounts  of  knowledge  acquired  by 
the  end  of  th®  course,  as  shown  by  a  distribution  of  final 
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grades.  In  individualized  instruction,  whether 
computer-based  or  not,  each  student  proceeds  at  his  own 
pace  and  differences  between  students  influence  the  amount 
of  time  needed  to  complete  the  course  more  than  it  does 
the  amount  of  information  acquired.  Most  of  the  time 
savings  in  individualized  instruction  are  due  to  those 
students  whose  rate  of  progress  in  conventional 
instruction  would  be  too  slow;  typically,  that  rate  might 
be  one  that  permits  about  90  percent  of  the  students  to 
complete  the  course  during  the  fixed  period  of  time. 

An  example  of  the  time  savings  can  be  seen  in  the 
graph  (figure  2-1  i  which  shows  the  reductions  in  student 
time  for  about  12,200  graduates  over  a  15-month  period 
ending  May  1978.  The  results  were  for  three  courses  on  the 
Navy  Computer  Managed  Instruction  System  at  Maval  Air 
Technical  Training  Center,  Millington,  Tennessee. 
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Student  Attrition 


*7 

Since  the  rrethod  of  instruction  ^ ay  influence  the 
number  of  students  who  can  sucessfully  complete  a  cours=, 
the  rate  of  academic  attrition  associated  with  alternative 
methods  of  instruction  is  a  matter  of  concern.  The  rate  cf 
attrition  is  a  measure  of  the  cost  of  instruction  since  it 
influences  the  number  of  students  needed  to  enter  a  course 
in  order  to  produce  a  specified  number  of  graduates.  Only 
two  computer-based  instructional  systems,  the  Air  Force 
AIS  and  Navy  CPI,  have  received  extended,  though  still 
limited,  use  in  military  training.  Academic  attrition  may 
have  increased  in  courses  taught  this  way,  compared  to 
attrition  with  conventional  instruction  during  prior 
periods,  but  the  abilities  of  the  graduates  were 
signif icantly  higher.  Also  since  these  comparisons  do  not 
take  into  account  possible  changes  in  the  qualifications 
of  students  over  the  same  time  periods,  the  available  data 
suggests,  but  does  not  prove,  that  computer-based 
instruction  m a ;/  increase  academic  attrition  over  that 
found  with  conventional  instruction.  Figure  2-2  shows  the 
attrition  rates  of  seven  courses  taught  using  both  methods 
of  instruction. 
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4. 


attitudes  of  Students  and  Instructors 


Students  airrost  always  favor  computer-based 
instruction  over  the  conventional  instruction,  while 
instructors  airrost  always  have  unfavorable  attitudes 
towards  the  CAI  instruction.  The  students  attidudes  are 
generally  due  to  two  factors:  excitement  about  the  use  of 
a  new  type  of  machine  and  better  control  over  the  material 
that  is  being  taught.  3oth  of  the  factors  are  constantly 
at  work  and  thus  by  the  time  the  novelty  of  the  system 
wears  off  the  student  generally  has  developed  a  strong 
attitude  that  he  has  control  over  his  academic  destiny. 
The  instructors,  on  the  other  hand,  dislike  the  new  system 
because  their  professional  training  is  still  largely 
oriented  towards  conventional  instruction  and  those  that 
are  assigned  to  computer-based  instructional  duties 
receive  little  guidance  on  how  to  conduct  such  courses. 

D.  COST-EFFECTIVENESS 

There  is  no  evidence  that  cne  method  of  instruction  is 
most  cost-effective  for  all  types  of  military  trair.ir.fi*. 
The  most  cost-effective  method  for  a  particular  situation 
will  depend  upon  such  factors  as  type  of  course  material, 
location  of  instruction,  number  of  students,  and  life-span 
of  the  training.  It  is  apparent  that  the  lack  of  cost  data 
currently  available  for  this  system  makes  it  impossible  to 
examine  satisfactorily  the  conditions  which  would  make  a 
particular  method  of  instruction  the  most  cost-effective 
alternative  since  the  system  is  still  ir.  the  research 
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stages.  However,  the  type  of  course  material  seerrs  ideal 
for  a  computer-based  instruction  since  the  trainee  will  he 
using  the  computer  in  the  execution  of  his  duties.  The 
location  of  the  instruction  in  an  embedded  tutorial  is 
ideal  because  it  is  present  in  his  work  space  so  that  he 
is  able  to  refresh  his  skills  at  any  tine.  While  the 
number  of  students  utilizing  the  instruction  has  a  bearing 
on  the  cost-effectiveness  of  the  instruction,  the  embedded 
tutorial  reduces  or  eliminates  the  cost  of  the  computer. 
Since  this  system  already  nas  the  computer  for  operational 
purposes,  the  tutorial  can  be  stored  and  operated  on  that 
computer,  with  the  possibility  of  purchasing  only  one 
additional  console.  The  life-span  for  this  system  looks 
favorable  for  computer-based  instruction  since  it  is  a  new 
system  that  should  be  around  for  an  extended  time.  Since 
it  is  a  new  system,  the  instructions  will  constantly  have 
to  be  updated  which  is  ideal  for  a  computer-based  system 
as  compared  to  a  textbook  that  would  have  to  be  reprinted. 

Other  benefits,  beyond  those  mentioned  above,  occur 
with  computer-based  instruction  largely  because  the 
computer  can  compile  records  and  direct  the  attention  of 
instructors,  on  the  basis  of  various  algorithms.  The 
following  list  of  benefits  is  illustrative  rather  than 
complete : 

1.  iVore  precise  data  for  improving  and  updating  course 

materials; 

2.  Improved  control  over  equipment,  facilities,  and 
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materials  for  instruction? 

3.  Improved  allocation  of  resources  amon g  students? 

4.  Improved  ability  to  accommodate  fluctuations  in 
student  loads? 

5.  Increased  student/instructor  ratios,  as  well  as  the 
ability  to  use  some  instructors  with  less  advanced 
o.ualif  ications? 

6.  Reduced  need  for  support  by  noni nst rue t i ona 1 

personnel ? 

7.  Reduced  tine  of  students  on  base  waiting  for 

courses  to  start? 

S.  Improved  integration  of  records  of  students  at 
school  with  those  in  central,  computer-based  personnel 
files?  and 

9.  Improved  utilization  of  instructors. 
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III.  TUTORIAL 


The  embedded  tutorial,  as  described  in  the  following 
chapters,  is  designed  to  train  an  inexperienced 
individual,  provide  basic  data  information,  and  enhance 
the  skills  of  an  experienced  operator.  The  three  separate 
sections  of  the  tutorial  provide  the  versatility  necessary 
to  make  this  system  useful  because  it  covers  the  entire 
spectrum  of  training.  As  a  new  recruit  is  assigned  to  the 
station  it  would  be  advantageous  to  indoctrinate  him 
utilizing  the  actual  operational  system.  After  a  thorough 
review  of  the  basic  system,  the  user  can  start  to  get  a 
feeling  for  the  type  of  data  to  be  processed  by  continuing 
the  tutorial  in  the  data  display  section.  When  the  user  is 
ready  to  actually  use  the  operational  system,  it  would  be 
advantageous  to  first  practice  on  some  old  data  which  can 
be  done  by  utilizing  the  scenario  section  of  the  tutorial. 

The  displays  presented  throughout  this  paper  (figures 
3-1  to  6-1?)  are  representations  of  the  actual  displays 
that  are  seen  on  the  operational  tutorial.  The  figures  do 
not  adequately  reflect  the  actual  display  because  the 
operational  system  is  on  a  color  graphics  console.  The 
outer  border  of  each  figure  represents  the  limits  of  the 
screen,  while  each  horizontal  line  depicts  a  change  of 
color.  For  example,  figure  3-2  is  broken  into  three 
sections  by  the  two  horizontal  lines. 
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A.  INTRODUCTION  DISPLAY 

The  Embedded  Tutorial  Introduction  display  (figure 
3-1)  provides  the  user  with  the  option  areas  available. 
The  user,  dependent  on  his  skills,  can  choose  to  follow 
any  of  the  three  sections  of  instruction  or  quit  the 
entire  tutorial.  If  he  chooses  to  review  the  basic 
principles  of  the  system  (option  a),  then  he  will  receive 
the  fundamentals  of  the  system,  some  of  the  environmental 
problems,  and  a  little  theory  on  correlation  techniques. 
This  section  of  the  tutorial  flows  through  the  basic 
components  of  the  system  but  allows  an  inquisitive 
individual  the  ability  to  delve  into  some  additional 
details.  The  tutorial  starts  off  with  a  simple 
introduction  followed  by  the  overall  view  of  what  the 
system  is  trying  to  accomplish.  Next  a  list  cf  problem 
areas  related  to  the  environment  of  system  operation  is 
provided  with  the  option  to  further  examine  each  of  these 
problem  areas.  When  the  user  has  completed  the 
environmental  problems,  a  description  of  the  correlation 
technique  is  discussed  followed  by  a  brief  exhibition  of 
the  complex  machinery  of  the  system.  Upon  completion  of 
this  section  of  the  tutorial  the  program  will  return  to 
the  display  (figure  3-1)  in  the  main  program  and  allow  the 
user  to  again  proceed  along  any  of  the  three  routes,  basic 
principles  of  the  system,  data  information  displays,  or 
scenarios . 
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SN'BSETED  TUTORIAL  INTRODUCTION 

This  tutorial  is  designed  to  rreet  the  needs  of  an 
assortment  of  users,  from  the  novice  to  the  experienced 
operator.  There  are  three  categories  that  can  be  reviewed: 

a)  The  basic  principles  of  the  system  are  discussed  and 
many  of  the  problems  associated  with  the  system's 
environment  are  dealt  with  in  this  section. 

b)  The  type  of  data  that  will  be  displayed  during  actual 
system  operation  is  presented  along  with  exclamations  of 
the  data  and  key  areas  to  watch  while  tracking. 

c)  A.  set  of  practice  scenarios  are  presented  based  on  the 
parameters  inserted  by  the  operator.  These  scenarios  allow 
the  user  to  see  actual  data  being  presented  and  the 
effects  of  various  parameter  settings.  Key  points  are 
also  highlighted  in  this  section. 

type  in  the  letter  of  the  desired  category  or  (c)  to  quit. 


INTRODUCTION  DISPLAY 
FIGURE  3-1 
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If  the  individual  decides  that  the  data  information 
displays  (option  t)  is  the  area  that  needs  to  he  covered 
next,  then  an  assortment  of  data  in  the  format  that  will 
he  used  in  the  operational  case  will  he  presented.  This 
data  includes:  estimated  positions,  courses,  speeds, 
probabilities  of  accuracy,  tau  values,  doppler  values,  and 
surface  plots  of  the  suspected  track.  These  are  only 
example  displays  to  illustrate  the  format  of  the  data  and 
to  explain  the  meaning  of  various  values.  Key  areas  of 
interest  are  also  explained  in  the  lower  section  of  each 
display. 

When  the  user  is  ready  to  tackle  the  operational 
tasks,  data  that  has  already  been  processed  is  provided  in 
the  scenario  section  (option  c)  to  enhance  capabilities 
while  keeping  the  operational  data  safe  from  accidental 
removal.  The  scenario  section  allows  the  user  to  insert 
the  parameters  ana  then  displays  the  actual  data  in  the 
same  format  as  the  operational  system.  It  also  gives  a 
very  brief  explanation  of  the  reason  for  the  outcome  of 
the  data;  i.e.  The  data  is  variant  due  to  the  low 
coherence  level.  With  this  information  the  user  can  return 
to  the  parameter  setting  display  and  adjust  the  values  to 
obtain  a  better  set  of  data.  This  is  very  useful  in  a  new 
system  because  there  are  no  values  to  which  the  parameters 
can  be  set  which  automatically  achieve  the  best  results 
each  time.  The  scenario  section  is  a  good  starting  place 
and  also  an  excellent  place  for  an  experienced  operator  to 
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irrprove  performance  and  practice  different  types  of 
parameter  settings  without  damaging  the  operational  data 
or  downgrading  operational  performance. 

B.  INSTRUCTIONAL  DISPLAY 

The  instructional  displays,  an  example  is  figure  3-2, 
provide  the  user  with  the  basic  understanding  of  how  each 
display  will  be  set  up.  Each  section  has  slightly 
different  characteristics  so  there  is  a  different 
instructional  display  to  explain  each  section  of  the 
tutorial . 

Each  instructional  display  follows  a  basic  pattern: 
menu,  illustration,  and  explanation.  The  menu  provides  the 
user  with  the  possible  options  available  to  him  at  any 
time.  They  include:  "Continue"  which  will  proceed  to  the 
next  basic  illustration;  "Return"  which  will  return  the 
program  to  the  initial  display;  and,  option  categories  to 
proceed  to  any  of  the  possible  areas  of  further  detail 
desired  at  that  time.  The  illustration  area  cf  the  display 
varies  from  a  picture  of  the  situation,  to  a  display  of 
data,  to  the  correlation  formulas.  The  illustrations  try 
to  cover  as  much  information  as  can  normally  be  digested 
in  a  single  frame  and  then  the  explanation  section  tries 
to  clarify  any  additional  problems.  The  explanation 
occasionally  causes  the  user  to  be  uncertain  about  some 
point.  Additional  information  can  generally  be  obtained  by 
proceeding  to  one  of  the  option  areas. 
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Uenu  of  the  next  possible  out ion  areas  is  presented  here 


Basic  diagrams  will  he  illustrated  in  this  area.  They  will 
depict  a  view  of  the  overall  system,  environmental 
problems,  and  detailed  displays  of  questionable  areas. 
Peview  of  this  section  before  reading  the  explanation 
below  will  be  helpful  in  succeeding  displays. 


An  explanation  of  the  middle  area  will  be  displayed  in 
this  section.  Generally  it  will  be  a  simplified  review  of 
the  basic  concept  with  a  few  new  ideas.  If  the  new  ideas 
are  not  fully  understood,  they  will  bp  listed  in  the  menu 
to  be  pursued  later. 

type  c  to  continue 


INSTRUCTION  DISPLAY 

FIGURE  3-2 
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IV.  BASIC  SYSTEM  TUTORIAL 


This  chapter  describes  an  embedded  tutorial  written  for 
an  ASW  system  presently  being  developed  for  the  United 
States  Navy.  This  section  of  the  tutorial  is  designed  to 
indoctrinate  a  new  operator  in  the  basic  characteristics  and 
problems  of  the  system. 

A.  INTROEUCT ION  DISPLAY 

The  introduction  display  (figure  4-1)  provides  the  user 
with  the  basic  concepts  necessary  to  understand  the  system's 
purpose.  It  prepares  the  user  for  the  general  flow  of  the 
tutorial  and  the  option  areas  that  will  be  available  for 
further  study.  If  an  individual  only  types  ”c"  to  proceed  to 
the  next  display,  then  a  basic  overview  of  the  system  and 
its  environmental  problems  will  be  presented.  However,  the 
user  has  the  option  to  branch  into  the  greater  details  of 
many  of  the  problem  areas  and  formulas. 

B.  OVERALL  SYSTEM 

The  second  display  (figure  4-2)  familiarizes  the  user 
with  the  purpose  of  the  system,  provides  a  possible 
configuration  of  arrays,  and  the  target  area  that  is  to  be 
covered.  There  is  no  greater  detail  available  at  this  point, 
so  the  only  options  are  to  continue  or  return.  If  the 
operator  chooses  to  return,  a  new  display  will  be  presented 
which  asks  him  '10  YOU  REALLY  WANT  TO  RETURN  TO  THE  MAIN 
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PROGRAM?  (y  /  n)'.  If  he  responds  'y'  the  program  will  shift 
back  to  the  main  program,  but  if  anything  else  is  typed  the 
program  will  return  the  previous  display  to  continue. 

C.  ENVIRONMENTAL  PROBLEMS 

When  the  continue  option  is  taken  a  new  display  (figure 
4-3)  appears  on  the  screen  describing  the  problems 
associated  with  the  environment  that  the  system  must  work  in 
to  detect  targets.  It  discusses  the  problem  of  extraneous 
noise  always  present  in  the  ocean,  the  time  delays  in 
receiving  the  signals  due  to  long  distances,  and  the  problem 
of  sound  traveling  at  various  speeds.  All  of  these  problems 
are  touched  on  in  this  one  display,  with  further  explanation 
in  subsequent  displays. 

The  next  set  of  displays  demonstrates  one  area  wnere  a 
computer  based  embedded  tutorial  is  far  nore  proficient  in 
training  than  a  normal  textbook  could  possibly  be.  There  are 
six  displays,  figure  4-4  through  figure  4-9,  which  can  be 
presented  from  this  point  and  then  repeatedly  cycled  through 
in  any  order  desired  by  the  user.  Presently  there  are  only 
six  displays,  but  this  is  only  a  sample  of  an  enbedded 
tutorial,  there  could  be  20  or  30  or  more  displays  open  to 
the  user  to  traverse  in  any  manner  desired.  This  allows  the 
user  to  control  the  order  of  areas  of  learning  corresponding 
to  his  interests  and  curiousity. 

The  first  environmental  problem  that  the  system  must 
overcome  is  the  presence  of  vast  amounts  of  noise  always 
present  in  the  ocean.  In  the  frequency  ranges  that  the 
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surveillance  system  is  concerned  with,  the  principle  source 
of  noise  is  other  ships  in  the  ocean.  Once  the  noise  is 
generated  it  will  travel  great  distances  hut  will  dissipate 
and  thus  be  useless  in  detection.  It  is  very  similar  to 
trying  to  listen  to  a  single  person  in  a  large  noisy  party? 
the  person's  voice  is  ai stingui shable  but  the  background 
noise  makes  it  rather  difficult  to  clearly  understand  it. 
Figure  4-4  illustrates  now  the  desired  frequency  of  the 
vessel  stands  out  with  the  noise  slightly  lower. 

If  'd'  was  typed  while  in  any  of  the  displays  (figures 
4-3  thru  4-9)  a  presentation  of  the  problem  associated  with 
large  distances  would  appear  on  the  screen.  This  display 
(figure  4-5)  compares  two  possible  arrays  trying  to  detect  a 
target  in  a  specific  area,  where  one  is  1200  miles  and  the 
other  is  500  miles  from  tne  source  of  the  signal.  This 
creates  two  problems.  One  is  due  to  the  large  difference  in 
distances  which  causes  time  delay  problems  (figure  4-6),  and 
the  other  problem  is  due  to  tau  line  separation  (figure  4-6 
and  4-7).  At  this  point  the  user  can  choose  to  follow  up  on 
either  problem  or  possibly  one  of  the  other  four  options. 

The  tau  lines  display  (figure  4-6)  describes  what  the 
tau  lines  are  and  how  they  are  involved  in  the  system.  Tau 
lines  are  a  time  delay  between  reception  of  the  same  signal 
by  two  different  arrays.  Thus  if  a  signal  is  produced 
anywhere  on  a  line  equidistant  from  both  arrays,  it  will 
reach  the  arrays  at  the  same  time,  this  line  is  the  zero  tau 
line.  Likewise,  any  signal  produced  on  line  3-4  (figure  4-6) 
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will  arrive  at  array  "a”  500  seconds  prior  to  the  same 
signal  arriving  at  array  "b".  As  line  3-4  demonstrates, 
these  tau  lines  are  hyperbolic  in  shape  and  they  get  more 
bent  as  the  line  moves  closer  to  either  array.  This  bending 
results  in  the  distance  between  any  two  tau  lines  not  being 
constant.  As  the  tau  line  problem  display  (figure  4-7) 
illustrates,  separation  of  lines  near  point  4  is  nearly  225 
miles,  while  they  began  only  50  miles  apart.  Another  problem 
is  that,  over  the  same  distance,  different  tau  lines,  i.e. 
1-2,  only  separate  to  approximately  65  miles.  Thus, 
depending  on  the  position  of  the  area  to  be  covered, 
accuracy  can  diminish  quite  drastically.  From  this  point  in 
the  tutorial,  the  user  can  examine  more  problems,  review 
this  problem,  or  continue  on  to  the  next  general  area. 

If  the  user  decides  to  proceed  with  some  new  problem 
areas,  two  more  have  been  implemented,  time  delay  and  water 
temperature.  The  time  delay  display  (figure  4-8)  again  shows 
the  basic  picture  of  the  surveillance  area,  but  then 
discusses  a  new  problem.  It  explains  that  a  signal  produced 
at  point  "A"  can  arrive  at  two  different  arrays  separated  by 
a  large  time  difference.  This  problem  has  to  be  accounted 
for  by  the  computer. 

The  last  display  in  this  section  of  problems  deals  with 
the  speed  of  sound  in  water  and  how  temperature,  salinity, 
and  depth  effect  the  speed.  The  display  (figure  4-S) 
illustrates  the  variance  of  speed  with  depth.  As  the  depth 
is  increased  the  speed  of  sound  initially  slows  down  until 
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roughly  the  1000  yard  depth  and  then  it  starts  to  increase 
gradually.  As  explained  in  the  write-up  under  the  graph, 
speed  of  sound  also  increases  as  the  tenperature  and 
salinity  increase.  Again  the  user  has  the  opportunity  to 
continue  reviewing  any  of  these  problem  areas,  continuing 
the  tutorial,  or  returning  to  the  main  program. 

D.  SYSTEM  BREAKDOWN 

Continuing  the  tutorial  presents  the  user  with  an 
estimate  of  the  area  this  system  covers.  The  display  (figure 
4-10)  illustrates  that  the  coverage  is  about  the  size  of  the 
state  of  Montana,  for  an  arbitrary  operating  distance  in 
this  example  in  excess  of  1500  miles.  This  display  also 
shows  that  the  area  can  be  broken  down  into  smaller,  more 
manageable  regions  of  about  40  miles  square.  Thus  there  are 
100  regions  in  this  surveillance  area  and  they  can  be 
covered  by  XXX  correlations  per  hour.  The  XXX  was  purposely 
displayed  to  show  where  the  vast  abilities  of  the  computer 
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3 ASIC  TUTOR!* L  INTRODUCTION 

This  embedded  tutorial  is  designed  to  provide  the 
novice  user  with  an  introduction  to  the  ASV  surveillance 
system.  The  system  is  designed  to  detect  vessels  at 
extreme  distances,  in  excess  of  1000  miles,  in  order  to 
protect  our  coast  and  shipping  lanes  from  enemy  suhrarir.es 
and  other  ships. 

Pany  of  the  following  displays  exhibit  the  fundamental 
concepts  of  the  system  and  then  allow  the  user  to  delve 
into  the  details  when  desired.  Observe  the  menu  at  the  top 
of  each  display  to  see  what  options  are  available  at  any 
given  time. 

type  c  to  continue 


FIGURE  4-1 


3ASIC  TUTORIAL  INTRODUCTION 
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FIGURE  4-2 


OVERALL  SYSTEM  VIEW 
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type==>  Continue,  Distance,  Time,  Wa  ter  ( temp )  ,  Kcise,  ^eturn 


(LAND) 


'The  above  menu  lists  many  of  the  problems  associated  with 

the  system  due  to  its  environment: 

1)  Distances  are  quite  large,  on  the  order  of  1500  miles 
in  this  example. 

2)  Time  delays  caused  by  differences  in  the  time  of  arrival 
of  the  signal  at  two  different  arrays. 

3)  Water  temperature  and  salinity  variations  affect  the 
speed  of  sound. 

4)  Noise  created  by  other  vessels  distorts  the  reception  of 
the  desired  signal. 


FIGURE  4-3 


ENVIRONMENTAL  PROBLEMS 
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type  ==>  Continue,  Distance,  Tire,  Wa ter(  terr?)  ,  Return 


VOLTAGE 

(volts) 


The  detection  of  a  specific  signal  is  adversely  affected 
by  additional  noise.  This  detection  can  be  compared  to 
trying  to  listen  to  a  specific  person  at  a  large  noisy 
party.  The  majority  of  signals  detected  in  the  rang0  of 
10H  z  to  400Hz  are  generated  by  other  vessels.  However, 
greater  distances  cause  these  signals  to  be  weaker  and 
unt  raceabl e . 


FIGURE  4-4 

NOISE  PROBLEMS 
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type=>Cont inue,  Time,  Water ( temp ) ,  Lines(tau),  Noise,  Return 


This  system  is  required  to  detect  targets  at  very  large 
distances.  These  distances  range  from  relatively  few  miles 
to  in  excess  of  15CC  miles  in  this  example.  The  lone  ranees 
cause  problems  of  diffusion  and  larre  separations  in  the 
tau  lines.  When  the  detection  of  a  signal  is  accomplished 
by  two  arrays  that  are  at  different  distances  from  the 
source  of  the  signal,  a  time  delay  must  he  computed  in 
order  to  pinpoint  the  position  of  the  source. 


FIGURE  4-5 


DISTANCE  PROBLEM 
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type=>Continue,  Noise,  Time,  Water(tenp),  Line^prob),  Return 


A 

3  500  TAU  LINE 

1^0  TAU  LINE 


B 


Tau  lines  are  measurement  lines  distinguishing  the  time 
arrival  cf  the  signal  at  two  different  arrays.  If  arrays  A 
and  R  are  1000  miles  apart  then  a  signal  oroduced  midway 
"between  A  and  B  (point  1)  would  arrive  at  both  arrays  at 
exactly  the  same  time.  Additionally  any  signal  produced  on 
line  1-2  would  arrive  at  "both  arrays  simultaneously.  In  the 
same  manner,  signals  produced  on  line  3-4  arrive  at  the 
arrays  with  the  same  amount  of  time  delay  in  all  cases. 


FIGURE  4-6 
TAU  LINES 
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type==>  Continue,  Noise.  Tire,  Distance,  Water(temp),  Peturn 


Since  the  tau  lines  are  hyperbolic  in  shape,  another 
problem  arises  in  that  the  spacing  between  any  two  lines 
does  not  remain  constant.  The  lines  at  points  1  and  2  are 
spaced  50  miles  apart.  The  lines  1-2  separate  to  65  miles 
by  the  time  they  reach  point  2,  whereas  lines  3-4  spread 
to  225  riles  by  the  time  they  reach  point  4.  This  variance 
can  cause  drastic  differences  in  the  accuracy  of  the  signal 
received,  depending  on  the  position  relative  to  the  arrays. 


FIGURE  4-7 

TAU  LINE  PROELEMS 


40 


FIGURE  4-8 

TIME-BELAY  PEOPLEMS 
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type  ==s  Continue,  Noise,  Distance,  Time,  Return 


DEPTH 

(yards) 


VELOCITY 

(yards/sec) 


3000 


6000 


The  velocity  of  sound  varies  as  a  function  cp  the  water 
temperature,  salinity,  and  depth.  In  the  first  TCP  yards 
from  the  surface,  velocity  is  mainly  affected  by  tempera¬ 
ture  and  salinity,  after  which  depth  (pressure)  is  the  main 
factor.  As  temperature  and  salinity  rise,  the  velocity  of 
sound  increases.  As  the  pressure  increases  due  to  the 
depth,  the  velocity  of  sound  also  increases.  These 
variances  are  not  severe  but  when  the  measurements  are 
in  tenths  of  a  second,  any  change  will  cause  inaccuracies . 


FI  SURE  4-9 


WATER  TEMPERATURE  PROBLEMS 
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FIGURE  4-12 


AREA.  BREAKDOWN 
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E.  HYDROPHONES 

The  next  portion  of  the  tutorial  provides  an  explanation 
of  the  hydrophone,  the  arrays,  and  steering  the  arrays 
toward  the  area  of  surveillance.  Figures  4-11  through  4-1? 
illustrate  the  basic  principles  of  correlation  and  the 
characteristics  of  the  hydrophone  arrays.  As  figure  4-11 
exhibits,  the  area  covered  by  a  single  beam  increases  with 
distance  from  the  array  and  accuracy  decreases 
proportionately . 

The  hydrophone  array  is  a  long  tube,  about  the  size  of  a 
large  fire  hose  in  circumference  and  roughly  2,000  feet 
long,  containing  approximately  60  hydrophones.  Each 
hydrophone  works  in  the  same  manner  as  a  sound  speaker  in 
reverse,  it  receives  the  waves  of  sound  and  converts  them 
into  electrical  signals.  Figure  4-12  illustrates  the  rough 
shape  of  a  beam  formed  by  the  hydrophone  array.  This  shape 
varies  in  width  and  length  with  frequency,  a  high  frequency 
beam,  for  example,  being  snort  and  narrow. 

As  figure  4-12  illustrates  that  the  beam  is  directed 
straight  out  perpendicular  to  the  array  when  no  corrections 
are  made  to  it.  However,  it  can  be  directed  as  figure  4-13 
illustrates.  The  shifting  of  the  direction  is  accomplished 
by  delaying  the  signal  received  by  some  of  the  hydrophones 
longer  than  others.  Since  there  are  about  60  hydrophones, 
there  can  be  about  60  possible  combinations  producing 
roughly  60  beams  to  cover  the  area. 
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FIGURE  4-11 


CORRELATION 
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type  ==>  Continue,  Array  (pointing),  Ellipses,  Peturn 


NOISE  l  ^ 

j 

J 

WAVE 

I  i 

I  BEAM 

1  PATTERN 

J . J 

HYDROPHONE  ARRAY 


The  system  for  collecting  signals  is  an  array  of 
hydrophones,  roughly  2000  feet  long  containing  60  uassive 
sonar  devices.  If  no  adjusting  (pointing)  of  the  array  is 
done,  then  only  noise  waves  coming  in  directly  abeam  of 
the  array  will  be  detected.  The  noise  arrives  at  the  array 
in  the  same  manner  that  a  wave  crashes  on  the  beach,  sore 
co^e  in  straight  a’-'d  others  hit  at  an.  angle. 


FIGURE  4-12 

HYDROPHONES 
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type  ==>  Continue,  Hydrophones,  Ellipses,  Return 


In  order  to  cover  a  large  area  with  a  single  pair  of 
arrays,  the  beams  must  be  able  to  be  pointed  in  several 
directions.  This  is  accomplished  by  using  a  tire  shift  in 
the  receiving  of  a  signal  at  various  hydrophones  along  the 
array.  There  can  be  roughly  as  many  beam  patterns  as  there 
are  hydrophones  and  the  beam  patterns  are  generally 
overlapped  to  ensure  that  the  entire  area  is  covered. 


FIC-UPE  4-13 

ARRAY  POINTING 
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F.  FLLIPSES 


When  contact  is  made  by  an  array,  the  area  of  probable 
contact  is  a  very  long  narrow  ellipse  centered  along  a  tau 
line.  When  two  di f f erent  arrays  detect  a  signal  then  the 
ellipse  is  centered  at  the  intersection  of  the  tau  lines, 
and  its  shape  is  dependent  on  their  angle  of  intersection. 
As  the  display  (figure  4-14)  shews,  when  the  angle  of 
intersection  of  the  tau  lines  is  nearly  perpendicular,  the 
ellipse  approaches  a  circle  and  therefore  there  is  a  much 
smaller  area  of  probable  contact.  As  the  tau  lines  become 
more  parallel  the  ellipse  becomes  longer  and  the  probable 
contact  area  increases.  When  more  data  is  accumulated  on  the 

signal,  additional  ellipses  can  be  drawn  as  the  disolay 
(figure  4-15)  demonstrates.  The  additional  ellipses  are 
nearly  totally  confined  within  the  previous  ellipses,  thus 
reducing  the  probable  contact  area  even  further.  If  the  data 
received  alternates  between  different  sets  of  arrays,  as  the 
first  three  ellipses  illustrate,  then  the  area  of  probable 
contact  shrinks  rapidly.  If  the  data  comes  from  the  same  set 
of  arrays  then  the  ellipse  becomes  longer  and  narrower  and 
eventually  exceeds  prior  ellipses  in  total  area. 

The  display  (figure  4-15)  demonstrates  how  graphics  can 
animate  displays  to  make  them  appear  as  if  they  were  being 
drawn  by  an  instructor.  When  the  original  display  is 
presented,  only  the  two  outermost  ellipses  are  drawn  in  the 
middle  section.  Then  as  the  user  finishes  reading  the 
explanation  of  combining  ellipses  he  has  the  option  of 
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seeing  more  ellipses  combined  by  typing  V '  cr  continuing 
the  tutorial  by  typing  'c'.  If  more  ellipses  are  desired 
they  will  be  drawn  one  at  a  time  with  a  two  second  delay 
between  them.  Another  feature  of  this  display  is  that  it  can 
be  reached  by  two  different  routes.  First  it  will  be 
displayed  when  the  user  requests  more  detail  in  earlier 
displays  (figures  4-11  and  4-14)  or  by  following  the  basic 
simplified  route.  Whichever  route  is  followed  this  disulay 
will  occur  at  least  once. 

G.  ENTIRE  SYSTEM 

Now  that  the  user  has  seen  what  the  system  is  trying  to 
accomplish,  a  simplified  view  of  the  comolexity  of  the 
system  is  displayed  (figure  4-16).  This  display  and  its 
detailed  subsystems  prepare  the  individual  for  the  actual 
use  of  the  system. 

If  the  user  decides  to  probe  into  the  inner  workings  of 
the  system,  he  has  the  opportunity  at  this  point  to  see  the 
basic  technique  and  some  of  the  formulas  used  in  solving  the 
correlation.  The  first  display  (figure  4-1?)  describes  the 
use  of  coherent  versus  incoherent  calculations.  This  display 
demonstrates  that  straight  text  can  be  inserted  into  the 
tutorial;  however  this  is  not  a  very  cost  effective 
utilization  of  the  computer.  The  second  display  (figure 
4-18)  illustrates  the  formulas  that  are  used  in  computing 
the  correlation.  This  display  demonstrates  that  formulas, 
though  difficult  to  display,  can  be  presented  in  a  clear  and 
complete  manner.  Again  this  is  not  an  efficient  method  of 
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conmunica t ir.g  this  information,  hut  it  does  demonstrate  that 
it  can  he  done. 

Some  of  the  variables  used  in  the  calculations  can  he 
varied  by  the  tracker  to  obtain  a  better  picture  of  the 
actual  situation.  This  display  (figure  4-19)  provides  the 
user  with  just  a  few  of  the  possible  variables  and  their 
upper  and  lower  limits.  If  during  the  scenario  or  actual 
system  utilization,  the  tracker  attempts  to  exceed  these 
limits  the  computer  will  not  allow  him  to  input  the  changes. 
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typ“==>  Continue,  Fllipses  (combined),  Hydrophones,  Return 


DIAGRAM  B 

I 


When  a  correlation  is  made  from  data  received  at  two 
arrays,  an  area  of  probable  contact  is  established. 

The  area  of  probable  contact  forms  an  ellipse, 
as  in  diagrams  A  and  3.  When  the  tau  lines  are  nearly 
perpendicular,  the  ellipse  auproxima tes  a  circle  which 
indicates  a  high  probability  of  contact  within  a  small  geo- 
graphic  area.  However,  if  the  tau  lines  intersect  at  relat¬ 
ively  small  angles,  the  result  is  a  very  long  ellipse, 
indicating  a  lower  probability  of  contact  within  th°  area. 


DIAGRAM  A 


FIGURE  4-14 


ELLIPSES 


type  ==>  Continue,  Ellipses,  Hydrophones,  Return 


Area  around  A  is  now  the  probable  contact  area. 

When  several  pieces  of  data  are  gathered  about  a  specific 
signal,  then  the  ellipses  can  he  combined  to  reduce 
the  area  of  probable  contact.  As  the  diagram  illustrates, 
the  second  set  of  data  forms  an  ellitse  which  is  inside  the 
first  ellipse.  Additional  data  can  be  used  to  establish 
additional  ellipses  and  eventually  improve  the  detection 
of  targets. 

Type  'it'  to  see  how  additional  ellipses  are  combined. 


FIGURE  4-15 

COMBINED  ELLIPSES 
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type==>  Continue,  Techniques  (correlation),  Filters,  Return 


A  brief  overview  of  the  entire  system  demonstrates  the 
amount  of  complex  machinery  required  to  accomplish  this 
survei 1 lan ce .  Signals  are  received  at  the  arrays  fd  are 
transmitted  to  the  base  station,  then  sent  via  satalite  to 
the  Support  Center  (SC).  In  the  SC  the  data  is  sent 
through  filters  and  a  correlator,  where  the  computer 
establishes  two  sets  of  data  (peak  data  files  and  surface 
plots).  The  peak  data  and  surface  plots  are  reviewed  by 
the  operators  to  determine  any  possible  target  tracks. 


FIGURE  4-16 

ENTIRE  SYSTEM 
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type  ==^  Continue,  Rules  (formulas),  Filters,  Return 


STATEMENT  CF  THE  TFCHN  I  CUE 
Given  two  sequences  of  time  series 
data,  a  function  represents  the  decree 
of  match  of  the  two  time  series  as  a 
function  of  adjustment  of  the  delay  and 
of  adjustment  of  the  relative  Doppler 
ratio  between  the  two  series.  The  term 
"coherent",  applied  to  this  function, 
implies  that  the  relative  phase 
evolutions  of  the  time  series  are  used 
in  determining  the  degree  of  match, 
rather  than  discarded  as  in  an  incoherent 
calculation.  The  time  series  of  interest 
are  finite,  discrete,  frequency-shifted, 
hand-limited,  complex  time  series 
obtained  from  passive  sonar  sensors 
(hydrophone  arrays). 


FIGURE  4-1  ^ 

CORRELATION  TECHNIQUE 
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type  =='>  Continue,  Filters,  Return 


where  X(a,t)  is  the  modulus  correlation  coefficient 
a  is  the  relative  doppler  ratio  compensation 
t  is  the  delay  compensation 
A  is  the  normalization  constant 

X^  and  X2  are  time  series  sampled  at  time  intervals  T 
FI  and  F2  are  the  center  frequency  of  the  passband  for  the 
time  series 


The  basic  correlation  structur=>  can  be  seen  in  equation  1, 
as  the  rod ulus  of  norralized  sur  of  products  of  the 
tire  series  sarples  (with  one  series  conjugated).  The  other 
two  equations  are  used  for  delay  and  Doppler  corpensation 
of  the  tire  series  prior  to  correlation. 


FIGURE  4-18 

CORRELATION  FORMULAS 
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type  ==>  Continue.  Return 


LONGITUDE 
LATITUDE 
COHERENCE  limits 
TRACK  NUMESR 
PUN  NUM3EP 
R EOT  ON  NUMRER 


pANOES 
U0.e0-5e.ee 
150 .00-130 .00 
0 . 0-2 . 0 

1-10 

1-? 

1-25 


Listed  above  are  a  few  of  the  oaraneters  that  can 
be  adjusted  to  pet  a  better  track  of  a  vessel.  Other 
parameters  are  demonstrated  throughout  the  tutorial  and  if 
the  limits  are  exceeded,  the  computer  will  adjust  and 
notify  the  operator. 


FIGURE  4-19 


PARAMETER  VARIABLES 


V.  TATA  DISPLAY  TUTORIAL 


This  section  of  the  tutorial  is  designed  to  preoare  a 
tracker  for  the  types  of  data  that  will  he  presented 
during  operational  conditions.  It  provides  sortie 
representative  samples  of  data  in  order  to  explain 
explicit  details  about  the  values  in  certain  categories.  A 
review  of  this  part  of  the  tutorial  would  be  advisable  for 
all  trackers  as  a  routine  before  each  watch  they  stand 
because  it  provides  many  of  the  basics  of  each  data 
representation.  Such  a  review  would  ensure  that  the 
operator  will  not  totally  forget  characteristics  of  the 
system  during  periods  of  disuse. 

This  section  of  the  tutorial  begins  with  an 
introductory  display  (figure  5-1)  which  presents  the  basic 
concepts  of  this  section  and  then  describes  the  importance 
of  a  thorough  understanding  of  each  data  display.  None  of 
the  data  displays  can  be  overlooked  by  a  tracker  since  the 
data  is  interconnected  in  such  a  manner  that  the  accuracy 
of  one  forms  a  check  on  another.  For  example,  the  values 
of  the  position-data  display  (figure  5-2)  are  checked  for 
variance  by  the  values  of  the  covariance  matricies  in 
figure  5-7.  This  interconnection  is  useful  in  obtaining  a 
good  overall  picture  of  the  situation  but  still  allows  the 
user  the  freedom  to  transverse  the  data  displays  in  ary 
desired  order. 


DATA  TUTORIAL  INTRODUCTION 

This  section  of  the  tutorial  deals  with  the  types  of 

/ 

data  that  will  he  displayed  when  a  tracker  is  utilizing 
the  actual  operational  system.  The  displays  give 
representative  samples  of  data  and  then  explain  the 
characteristics  and  point  out  key  points.  This  section  of 
the  tutorial  is  brief  hut  extremely  important  to  the 
understanding  of  the  ooerator's  job.  A  quick  review  of 
this  tutorial  would  be  beneficial  to  the  experienced 
operator  before  starting  each  session  on  the  operational 
system . 

type  c  to  continue 


FIGURE  5-1 

DATA  TUTORIAL  INTRODUCTION 
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The  positional  data  display  (figure  5-2)  provides  the 
tracker  with  basic  information  about  the  vessel's  probable 
position,  course,  and  speed.  The  latitude  and  longitude 
will  not  vary  rruch  whether  the  signals  are  from  a  target 
or  noise?  however,  they  can  be  used  to  determine  a  good 
starting  point  for  setting  the  parameters  for  a  surface 
plot.  The  courses  and  speeds  will  vary  depending  on  the 
type  of  signal  that  is  being  received  and  thus  should  be 
closely  examined.  For  an  experienced  operator,  the 
covariance  matrix  display  (figure  5-7)  can  be  quite  useful 
in  determining  the  validity  of  a  suspected  track. 

The  peak  data  display  (figure  5-3)  provides  the 
operator  with  seme  rather  difficult  numbers  to  comprehend. 
The  STK/Bf!  numbers  are  the  numerical  representation  of  the 
array  and  the  direction  of  the  beam.  It  is  important  to 
recognize  when  a  different  array  is  receiving  the  signal 
because  this  can  increase  the  accuracy  of  triangulaticn . 
The  tau  values  are  important  because  they  will  vary  in  the 
same  manner  as  the  courses  and  speeds;  however,  this 
variance  can  only  be  detected  when  using  the  same  pair  of 
arrays.  A  large  jump  in  tau  values,  as  in  figure  5-2,  is 
another  indication  that  two  different  pairs  of  arrays  are 
detecting  the  same  signal,  but  the  variance  in  values  from 
a  single  pair  of  arrays  is  quite  good.  The  doppler  values 
will  also  vary  and  should  be  watched  closely  when  tracking 
a  surface  vessel. 


59 


type  ==> 

Continue, 

Return 

PUN 

NUMBER  6 

REGION  NUf'PER  6 

TRACK  NUUPEP  9 

Water  Time 

Peak 

Position  Coordinates 

Courses  and  Speeds 

23-Eeb-S0 

N  un  h  e  r 

Lati tude 

Longi tude 

Course  Speed 

14:58:03 

0 

39.5000 

147.5000 

0.0  0.00 

14:58:03 

342? 

39.4711 

147.470? 

142.0  5.39 

15 :04:23 

3533 

39.4682 

147.4552 

154.7  5.52 

15:14:30 

3449 

39.4212 

147.4189 

153.9  5.96 

15:33:35 

3540 

39.3582 

147.4417 

160.3  6.09 

15:48:44 

3452 

39.3980 

147.4815 

161.6  5.59 

This  data  illustr 

ates  the  es 

ti mated  position,  course  and 

speed  of 

a  possibl 

e  target. 

When  the  data  is  relatively 

constant  , 

as  in  the 

above  display,  it  is 

probable  that 

the  signals  were 

genera  ted 

by  a  vessel.  If  the 

courses  were  159.0, 

135.6,  160 

.4,  122.7, 

1 50 . 3  then  the 

data  would 

pro  bably 

be  due  to 

extraneous 

noise. 

FIGURE  5-2 


PCS  IT  ION-DATA 
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type  ==>  Continue,  Return 


?UN  NUMBER  6  REGION  NUMBER  6  TRACE  NUMBER  9 


Peak 

-Ref  Station- 

-PPD  Station- 

- Peak 

Da  ta - 

Number 

STM/EM 

Freq 

STM/BM 

Freq 

TAU 

DOPPLER 

0 

0 

0  .00 

0 

3.00 

0.0 

.  000  0 

3427 

1323324 

41.43 

1322329 

41.43 

-416.7 

-.3333 

3533 

1322031 

41 .40 

2411020 

41  .40 

27.3 

.0000 

2449 

1223324 

41.40 

1322030 

41  . 40 

-412  .8 

-.0000 

3543 

1322331 

41.43 

2411321 

41  .43 

19.2 

.3033 

3452 

1323025 

41.40 

1322030 

41  .40 

-420  .7 

-.0000 

This  data  display  presents  the  pea*  numbers,  the  array 
that  received  the  signals,  the  freauer.cy  o?  the 
signal,  and  peak  data.  The  variances  in  the  Tau  and  Toppler 
values  can  give  evidence  as  to  the  validity  of  the  track. 
The  variance  in  the  Tau  values  from  -416.7  to  27.2  to 
-412.8  etc.  means  that  the  ellipses  will  nrobably  corbine 
very  well  because  the  data  is  being  collected  from  two 
different  sets  of  arrays. 


FIGURE  5-3 

PEAK-DATA 
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The  accuracy  data  display  (figure  5-4)  is  a  good 
indication  of  track  validity  tecause  the  Chi-Square 
probability  scores  describe  the  consistency  of  the 
received  data.  The  more  data  received  about  a  certain 
track,  the  better  the  exact  location  can  be  determined. 
The  cumulative  Chi-Square  score  is  an  excellent  quick 
reference  because  the  score  is  constantly  normalized  to 
present  a  true  indication  of  the  probability.  It  does  not 
matter  how  many  scores  are  obtained  because  they  are  all 
averaged.  The  cumulative  score  will  approach  one  (1.3)  if 
the  signals  being  received  are  from  a  target. 

The  surface  plots  (figures  5-5  and  5-6)  represents  the 
signals  received  in  another  fashion.  They  are  compiled  by 
taking  all  of  the  data  received  by  array  pairs  and  then 
filtering  the  data  through  a  coherence  filter  that  removes 
all  signal  data  below  the  level  set.  Then  the  data  is 
displayed  for  the  region  that  the  tracker  has  set  for 
surveillance.  Both  the  coherence  limit  and  the  regional 
area  are  set  by  the  operator  in  the  attempt  to  locate  a 
target . 

The  last  display  in  this  section  of  the  tutorial  is 
the  covariance  matrix  display  (figure  5-7)  which 
illustrates  the  complexity  of  the  system  as  it  presently 
stands.  It  takes  either  a  mathematician  or  a  very 
experienced  tracker  to  evaluate  the  matrices  displayed. 
For  this  reason  an  algorithm  is  being  developed  by  a  Navy 
contractor  to  simplify  this  data.  However,  at  this  time, 
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it  is  still 
data,  and  is 
algorithm  is 


important  to  the  evaluation  of  the  previous 
being  displayed  in  this  fashion  until  the  new 
completed . 
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type 

==>  Continue,  Return 

RUM  NUMBER  6  REGION  NUMBER  6 

TRACK  NUMBER 

9 

Peak 

Prob  — CHI  Souare  Scores — 

Meas  Fesiduals 

N umber 

Score  Stagewise 

Cumula  tive 

Del  tat 

Teltaf 

0 

0.00  0.0000 

0 . 0000 

0.0000 

0.0000 

342? 

-1.S0  0.3171 

0  .3171 

1  .7978 

-3.3405 

7C;77 

^  i_/ 

-4.89  0.0162 

0.166? 

0  .6344 

0.0193 

3449 

-3.99  0.4410 

0.2581 

3.3146 

-0.0036 

3540 

-4.66  1.4396 

3 . 2463 

-7  .4522 

3.3114 

3453 

-4.81  2.0796 

0.9527 

-8.3141 

0.0043 

3421 

-4.31  1.8945 

0  .8892 

-6  .4137 

0.0125 

This 

data  shows  the 

same  peaks. 

their  Chi 

Square 

probabilities  of  actual 

position,  and  their  measured 

residuals.  The  Chi  Square 

scores  are 

broken  into  two 

groups 

,  individual  scores 

and  the  cumulative  total 

.  The 

cumulative  score  is  a  g“ood 

check  as  to 

the  probability  of 

an  act 

ual  contact,  scores 

near  1.3  are 

quite  good. 

FIGURE  5-4 

ACCURACY-DATA 


64 


type  ==>  Continue,  Samoles ,  Return 


REGION  NUMBER  8 

COHERENCE  LIMIT  1.0 


By  examining  a  surface  plot  the  operator  may  he  able  to 
recognize  a  pattern  of  peaks  that  would  establish  a 
target's  track.  Care  must  be  taken  when  viewing  the  surface 
plots  because  the  size  of  the  area  (range  of  latitude 
and  longitude)  can  be  varied,  thus  giving  the  appearance 
of  a  track  when  there  might  not  be  one. 


FIGURE  5-5 

SURFACE-PLOT 
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type  ==>  Continue,  Samples, 


REGION  NUMBER  5 

COHERENCE  LIMIT  1.0 


Return 


This  surface  plot  shows  a  very  orobable  track,  indicated 
by  the  arrow.  Because  the  size  of  the  plot  is  relatively 
small  (60  miles  square)  and  the  coherence  limit  is 
relatively  high  (  1.0  ),  this  is  probably  a  track  of  a 
target  and  should  be  further  investigated. 


FIGURE  5-6 

SAMPLE  SURFACE-PLOT 
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type 

==>  Senerios, 

Tutorial  (again) 

,  Return 

Peak 

^UN  NUMBER  6 

REGION  NUMBER 

6  TRACK 

M  A  T  Y- 

NUMBER  9 

"  —  — — — ••-"VjUV  Ai\  1  A  it  0  & 

nA  1X1  A 

Number 

3427 

0. 03136 

0 . 00000 

-0.03150 

0.00000 

6.06000 

37.88962 

0 . 00000 

-48.49765 

-0. 03150 

0.30303 

0.07311 

0.00000 

0.00000 

-48.49765 

0.00000 

62  .21477 

3533 

0.00985 

0 . 00  047 

0.00551 

-0.00301 

3.00047 

0.31107 

0.03178 

3.19371 

0.00551 

0.00178 

0.00944 

-0.00179 

-0.00001 

0.19371 

-0.00179 

0 .13686 

This  display  illustrates  the  covariance  matrices  which  can 
be  used  to  determine  the  accuracy  of  the  estimated  courses 
and  speeds.  An  experienced  operator  could  determine  this  by 
examining  each  4X4  matrix.  However,  this  is  difficult  and 
time  consuming.  Efforts  are  being  made  to  have  this  handled 
by  the  computer. 


FIGURE  5-7 

COVARIANCE  MATRICES 
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VI  .  SCENARIO 


A.  PURPOSE 

The  scenario  is  an  important  part  of  the  learning 
experience  offered  in  this  tutorial  because  it  offers  the 
user  the  opportunity  to  practice  the  skills  that  have  been 
taught.  Parameters  can  be  inserted  and  the  data  displayed 
as  it  would  actually  be  shown  on  the  tactical  system  and 
also  advice  could  be  given  as  to  the  quality  of  the  data. 
This  actual  hands-on  training  has  many  benefits  over 
conventional  methods.  It  reduces  the  anxiety  of  the  user 
when  finally  confronted  with  a  tactical  mission,  gives  him 
key  Doints  that  can  be  expanded  in  future  lessons, 
refresher  training  at  his  work  place,  and  a  wide  variety 
of  options  to  try  on  tactical  data  outside  a  mission. 

A  great  deal  of  anxiety  and  frustration  generally  is 
experienced  by  the  individual  when  he  starts  a  new 
endeavor.  Any  reduction  of  this  anxiety  would  be 
beneficial  to  the  performance  of  the  individual  and  thus 
improve  his  value  as  an  operator.  With  an  embedded 
tutorial  an  individual  can  learn  the  workings  of  the 
system  and  the  procedures  of  the  task  while  becoming 
familiar  with  the  computer  operations.  This  scenario  is 
designed  to  give  the  user  several  different  looks  at  the 
kind  of  data  and  displays  that  he  will  be  working  with 
every  day.  A  tutorial  on  the  actual  system  would  be  far 
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better  than  the  mock-up  used  in  this  study  because  the 
using  of  actual  data  would  enable  the  user  to  see  many 
more  combinations  cf  parameters.  This  tutorial  would  be 
altered  to  analyze  the  parameters  more  carefully  to 
establish  what  comments  would  be  appropriate  for  the  data 
that  is  displayed. 

The  scenario  presently  has  only  four  sets  of  data  and 
explanations  have  been  limited  by  the  data  available  and 
the  size  of  the  computer.  Since  the  tactical  system 
receives  the  data  directly  from  its  storage  bank,  both  of 
these  limitations  are  removed.  The  tutorial  program  would 
only  have  to  receive  the  data,  analyze  it,  and  make 
appropriate  comments.  These  comments,  as  in  the  sample 
scenario,  would  describe  tc  the  user  the  areas  to  watch  in 
order  to  get  the  best  track,  and  also  it  would  help  in 
making  parameter  settings  for  optimum  surveillance.  These 
key  points  would  be  beneficial  to  both  the  new  user  and  as 
a  refresher  for  the  the  experienced  operator. 

Since  the  scenario  is  embedded  in  the  actual  tracking 
system,  it  is  easy  to  have  the  operators  run  refresher 
training  on  tactical  data  outside  an  actual  mission, 
without  sending  them  out  of  the  facility.  This  training 
could  increase  the  capabilities  of  an  experienced  operator 
because  it  would  serve  as  a  reminder  of  some  option  areas 
that  might  not  normally  be  utilized  either  because  they 
are  unfamiliar  or  because  they  were  not  very  effective  on 
the  data  that  has  been  previously  tried.  Since  each  new 


track  is  unique  in  its  oroperties,  an  operator  must  be 
very  flexible  in  his  attempt  to  distinguish  a  track  of  a 
target  from  noise. 

As  the  data  is  tactical  but  rot  part  of  a  current 
operation  during  a  senario,  it  is  an  excellent  time  for  an 
experienced  operator  to  try  various  combinations  of 
parameters  in  the  attempt  to  track  a  target  more 
accurately.  An  operator  would  not  have  this  option  during 
operation  due  to  the  necessity  of  constant  surveillance  of 
the  a  rea  . 

B.  PROGRAM  SETUP 

The  scenario  program  is  written  to  allow  the  expansion 
of  this  small  Sample  scenario  with  little  modification. 
The  program  takes  the  input  of  the  user  and  then  displays 
the  data  formatted  in  the  manner  that  the  user  desires.  As 
this  demonstration  proeram  is  limited  in  data  available, 
only  four  possible  sets  of  displays  ca^  be  shown,  each 
dependent  on  the  parameters  inserted  by  the  user.  The 
possibilities  of  disrlays  range  from  excellent  parameters 
to  worst-case  parameters  with  two  fair  sets  cf  data 
displays  in  the  middle.  In  each  set  of  displays  the  user 
can  see  peak  data,  location  data,  accuracy  data,  and 
surface  plots  of  the  region.  The  user  is  also  given  the 
opportunity  to  display  the  parameters  that  are  presently 
being  used  and  given  an  opportunity  to  alter  any  or  all  of 
them.  Eifure  6-1  shows  the  format  of  the  parameters  that 
can  be  altered  by  the  user  to  improve  surveillance  of  an 
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area.  The  present  values  shown  in  the  figure  are  the 
parameters  that  the  system  initialize!  when  the  scenario 
was  entered.  These  oarameters  will  give  the  best-case  set 
of  displays  and  explanations,  but  they  can  be  altered  to 
demonstrate  the  effect  of  poor  parameters  or  to  highlight 
specific  parts  of  certain  data  displays.  As  was  mentioned 
earilier  there  are  no  set  limits  or  firm  parameters  that 
will  give  the  best-case  display  of  data  in  all  situations. 

C.  DISPLAY  EXPLANATION 

There  are  four  sets  of  displays?  1 )  best-case 
parameter  setting,  ?)  data  accumulated  over  too  large  an 
area,  3)  data  accumulated  with  too  low  a  coherence  limit, 
and  4)  worst-case  data  which  was  accumulated  over  too 
large  an  area  at  too  low  a  coherence  limit.  These  displays 
will  be  grouped  by  display  category  to  demonstrate  the 
pitfalls  in  each  type  of  display  for  certain  choices  of 
pa  rameters . 

1 .  Posi tlonal-Pa  ta 

The  positional  data  is  Drobably  the  best  source  of 
information  that  the  operator  can  obtain  about  a  possible 
target  because  it  provides  a  smaller  area  to  search  and  a 
good  indication  of  the  probability  of  a  target. 
Furthermore  it  is  the  easiest  set  of  data  to  understand 
because  it  is  given  in  terms  that  most  people  can  easily 
grasp,  position  with  a  course  and  a  speed.  Some  of  the 
other  displays  present  tau  lines,  doppler,  and  cumulative 
Chi-Scuare  values.  The  positional  data  displays  (figures 
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6-2  to  6-5)  present  the  peak  numbers,  calculated  position, 
course,  and  speed  of  a  suspected  target.  A  key  point  to 
observe  is  the  variance  in  the  course  or  speed  because 
this  would  show  that  the  track  is  not  a  firm  set  of  data 
and  that  it  could  be  noise. 

As  figure  6-2  illustrates,  the  courses  and  speeds 
are  quite  steady  and  well  within  reason)  the  speeds  are 
not  excessive  and  the  courses  are  roughly  in  the  same 
direction.  Ir.  contrast,  figure  6-5  has  courses  that  vary 
30  degrees,  from  005.3  to  334.6,  and  speeds  that  jump  from 
7.69  to  4.69  causing  doubt  that  this  is  an  actual  track 
because  vessels  do  not  generally  proceed  in  this  fashion. 
These  were  two  extremes,  excellent  data  and  worst-case 
data)  however,  it  is  difficult  to  determine  the  validity 
of  the  track  for  most  data.  Figures  6-3  and  6-4  show  some 
more  common  data  in  which  the  courses  and  speeds  vary 
somewhat  but  they  are  gradual  changes  rather  than  abrupt 
changes . 
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type  =='>  the  desired  cumber  charge,  Contirue,  Return 


To  charge  any  of  the  present  values  of  the  uara^eters  to 
new  values,  use  the  following  format: 

P \ RA M IT EP -NUMBER,  NFW-VALUE  n 
For  example  ==>  4,1.2n  changes  the  coherence  limit  to  1.2 

MENU  07  PARAMETERS 

LIMIT  PARAMETER  PRESENT  VALUE  NEV.  VALUE 


1-25 

1 

.  REGION 

5 

1-7 

2.  RUN 

6 

i-ie 

3.  TRACK 

o 

0. 1-2.0 

4. 

COHERENCE 

1.0 

30.03-50.30 

5. 

LATITUDE (high ) 

35.53 

30 . 00—50 . 00 

e. 

LA  T ITULE( low ) 

36.00 

120.00-143.03 

7. 

LONGITUDE (h igh ) 

124.50 

120.00-140.00 

e. 

LONGITUDE (low) 

125.00 

FIGURE  6-1 


MENU  FOR  PARAMETER  CHANGES 
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RUM  NUMBER  6 


Peak 

Position 

Number 

Lat i tude 

0 

39.5000 

3427 

39 .4711 

3533 

39.4682 

3449 

39.4212 

3540 

39.3582 

3453 

39.3980 

3421 

39.4021 

3479 

39.4219 

3429 

39.4037 

REGION  NUMBER 

Coordinates 

Longitude 

147 .5000 
147.4707 
147.4552 
147.4189 
147.4417 
147  .4815 
147  .4739 
147.4632 
147.4297 


6  TRACE  NUMBER  9 

Courses  and  Speeds 
Course  Speed 


0.0 

0.00 

142.0 

5. 3  9 

154.7 

5.52 

153.9 

5.96 

160.3 

6.09 

161  .6 

5.59 

162.4 

5  .82 

160.3 

5.71 

161.1 

5.59 

A  VERT  C-OCr  TRACK  WITH  STEADY  COURSES  AND  SPEEDS. 


FIGURE  6-2 


EXCELLENT  POSITIONAL-DATA 
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RUN 

NUMBER  6 

REGION  NUMBER  6  TRACK 

NUMBER  9 

Peak 

Posi ti on 

C  oordinat  es 

Courses  and 

Speeds 

Number 

Lat i tude 

Longitude 

Course 

Speed 

0 

36.5000 

142.5000 

0.0 

0.30 

3542 

33 .4731 

142.4873 

142.0 

6.81 

3473 

38.4422 

142.4791 

150.6 

6.72 

3543 

38.4431 

142.4^62 

147.3 

6.04 

3557 

38.4401 

142.4750 

156.4 

6  .87 

3461 

38.4324 

142.4775 

156.8 

6.94 

3640 

38.4246 

142.4689 

144.7 

6.42 

3582 

38.4263 

142  .4663 

136.2 

6.75 

3533 

38.4221 

142.4572 

149.7 

6  .35 

POSSIBLY 

COVERED 

A  GOOD  TRACK ,  EUT  THE 

IS  TOO  LAPGE. 

SIZE  OF  THE 

REGION  BEING 

FIGURE  6-3 


LARGE  AREA  POSITIONAL-DATA 


RUN 

NUMBER  1 

REGION  NUMBER 

3  TRACK 

NUMBER  4 

Peak 

Position 

Coordinat  es 

Courses  and 

Speed  s 

Nuirtier 

La  ti  fade 

Longitude 

Course 

S  peed 

0 

33.5000 

145 .5000 

0.0 

0.00 

3325 

33.4734 

145.5398 

228.4 

7.34 

3342 

33.4689 

145  .5402 

235.6 

9.27 

3394 

33.4502 

145.5693 

243.5 

10.21 

3327 

33.4294 

145.5728 

227.9 

8.38 

3319 

33.3625 

145  .5829 

222.5 

7.03 

3364 

33.3518 

145.5962 

225.3 

7  .86 

3318 

33 . 3329 

145.6336 

233.1 

8.37 

3343 

33.2185 

145  .6285 

242.3 

7  .89 

E7EN  THOUC-F.  THE  COURSES  ARE  FAIRLY  STEADY,  THE  SPEEDS  ARE 

FLUCTUATING  GREATLY 

DUE  TO  THE  LOW 

COHERENCE 

LIMIT  . 

FIGURE  6-4 


LOW  COHERENCE  POSITION-DATA 
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RUN 

NUMBER  3 

REGION  NUMBER  4  TRACK 

NUMBER  7 

Peak 

Posi tion 

Coordinates 

Courses  and  Speeds 

Number 

Lati tude 

Longitude 

Course 

S  peed 

0 

36.5000 

143.5000 

0.0 

0.00 

3560 

36 .4784 

143.6534 

020.5 

4.58 

3532 

36.5348 

143.5739 

034 . 6 

6.27 

3571 

36 .5762 

143.4936 

025.9 

6.02 

3564 

36.6139 

143.4467 

012.3 

7.63 

3551 

36.6317 

143.4052 

005.3 

4.69 

3554 

36.6308 

143.3761 

014.7 

6.34 

3584 

36.6536 

143.3435 

018.1 

4.25 

3547 

36.6738 

143.3263 

023.5 

5.28 

POOR  TRACE  AS  SFEN 

PI  THE  COURS 

E  AND  SPEED 

CHANGES,  PROB- 

AEIT  DUE 

TO  THE  LARGE  /REA  AND 

THE  LOW  COHERENCE  LEVEL. 

FIGURE  6-5 

Vs  OF  ST  CASE  POSITION-DATA 
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2.  Peak-Data 


The  peak  data  displays  (figures  6-6  to  6-S) 
exhibit  some  rather  confusing  data  in  that  most  oeople 
know  little  about  tau  lines  and  fewer  people  have  any 
concept  of  numbers  associated  with  doppler.  The  STfVB^ 
numbers  are  a  numerical  description  of  the  array  and  the 
direction  in  which  the  beam  is  pointing  when  it  received 
the  signal.  A  good  track  will  have  alternating  ST^/H1*! 
numbers,  depicting  several  arrays  picking  up  the  data  and 
thus  the  triangula ti on  will  be  more  precise.  Another  place 
to  observe  the  alternating  of  arrays  is  the  tau  values. 
However  care  must  be  taken  not  to  confuse  the  varying  of 
the  numbers  with  the  alternating  of  arrays.  If  the  track 
is  weak  or  the  data  is  from  noise  it  could  appear  to  be 
alternating  when  it  is  actually  just  varying  a  great  deal. 
The  tau  values  obtained  from  a  single  array  should  not 
vary  a  great  deal  between  peaks.  When  tracking  a  surface 
vessel  the  doppler  values  will  be  very  steady  and  the  tau 
values  will  fluctuate  a  little  more  than  for  a  submarine. 

Figure  6-6  illustrates  a  pattern  of  constantly 
switching  array  pairs  in  the  reception  of  data  about  the 
track,  while  any  data  received  by  a  single  set  of  arrays 
does  not  vary  a  great  deal.  For  example  the  switching  of 
tau  values  from  -416.7  to  27.3  to  -412.5  to  19.2  shows 
that  two  different  sets  of  arrays  are  picking  up  the 
signal,  while  -416.7,  -412.8,  -42£.7  of  a  single  array 
pair  show  that  the  values  are  fairly  steady.  In  contrast 
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figure  6-9  illustrates  that  signals  are  only  being 
received  by  one  set  of  arrays,  that  no  switching  occurs, 
and  that  while  in  a  single  array  pair  the  tau  values  vary 
quite  extensively,  62.1  to  25.7  in  a  short  period.  Again 
these  are  somewhat  extreme  cases  and  are  easy  to  interpret 
compared  to  the  data  displayed  in  figures  6-7  and  6-8, 
where  there  is  some  switching  and  some  fairly  steady 
readings . 

3 .  Accuracy— Da  ta 

The  accuracy  data  displays  (figures  6-10  to  6-13) 
illustrate  some  data  that  is  good  for  determination  of  the 
quality  of  a  track  since  it  provides  the  operator  with  the 
Chi-Square  probability  of  a  target  being  within  a  specific 
region,  generally  an  ellipse.  The  individual  scores  are 
important  to  see  that  there  are  no  drastic  jumps  that 
would  adversely  affect  the  cumulative  score.  For  instance, 
a  large  single  individual  score  could  greatly  increase  the 
cumulative  score  and  present  a  false  impression  of  a  good 
track.  The  important  scores  to  watch  are  the  cumulative 
totals  which  should  approach  one  if  it  is  a  definite  track 
of  a  target. 

Figure  6-10  displays  the  pattern  of  a  good 
Chi-Square  accumulation  in  that  the  individual  scores  are 
constantly  getting  better  and  the  cumulative  score  is 
approaching  one.  The  individual  scores  are  getting  higher 
and  higher  because  the  probability  ellipses  are  combining 
and  thus  reducing  the  size  of  the  probable  contact  area, 
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figure  4-17.  In  the  worst-case  accuracy  data  display 
(figure  6-13),  the  individual  scores  do  not  appreciably 
increase  because  all  the  data  is  being  received  at  one 
array  pair  and  the  ellipses  are  combining  in  such  a  manner 
that  the  area  of  probable  contact  does  not  significantly 
shrink. 
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RUN  NUMBER  6 

REGION  NUMBER  6 

TRACK  NUMBER  9 

Peak 

-REF  Station- 

-PRD  Station- 

- Peak  Data - 

Number 

STM/3M 

Freq 

STM/BM 

Freq 

TAU  DOPPLER 

0 

0 

0.00 

0 

0.00 

0.0  .0000 

342? 

1323024 

48.70 

1322029 

46.73 

-416.7  -.0405 

3533 

1322031 

46.70 

2411020 

41.00 

27.3  .0117 

3449 

1323024 

48.70 

1322030 

GO 

• 

-o 

-412.8  -.P444 

3540 

1322031 

48.70 

2411021 

48.70 

19.2  .0223 

3453 

1323025 

48.70 

1322030 

48  .70 

-420.7  -.0400 

3421 

1322032 

48.70 

2411020 

48.70 

22.7  .0245 

3479 

1323024 

46.70 

1322031 

48 . 7  3 

-416.6  -.0437 

3429 

1322031 

48.70 

2411023 

48. 7C 

25.1  .0235 

GOOD 

TRACK  WITH 

TWO  SE 

TS  OF  ARRAYS 

!  SWITCHING  BACK  AND  FORTE 

TC  PROVIDE  DATA. 

(  N  Om 

ICE  TEE  TAU 

VALUES 

ALTERNATING  ) 

FIGURE  6-6 

EXCELLENT  PEAX-EA TA 
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FUN  NUMBER  3  REGION  NUMBER  4  TRACE  NUMBER  7 


Pea  k 

-REF  Station- 

-PRD  Station- 

- Peak 

Data - 

Number 

STM/BM 

Freq 

STM/BM 

Freq 

TAU 

DOPPLER 

0 

0 

48.70 

9 

48.70 

0.0 

.0000 

3542 

1333331 

46.70 

1346024 

48.70 

19.4 

.0221 

34r?8 

1333041 

46.70 

1346031 

48.70 

12.3 

.0237 

3548 

1333027 

48  .70 

1346023 

48.70 

16.4 

.0394 

3557 

1322107 

48.70 

2411321 

48.70 

-426.3 

.1027 

3461 

1333034 

48.70 

1346021 

48.70 

27.6 

.0384 

3640 

1333051 

48.70 

1346039 

48.70 

18.2 

.0392 

3582 

1322114 

4e.73 

2411324 

48.70 

-440.4 

.1079 

3533 

1333029 

48.70 

1346042 

46.70 

11.4 

.0369 

NOT  MUCH  ALTERNATING  OE  ARRAY  PAIRS,  PROBABLY  NOT  TOO 
GOOD  A  TRACE. 


FIGURE  6-7 

LARGE  AREA  PEAK-DATA 
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RUN  NUMBER  1  REGION  NUMBER  3  TRACE  NUMBER  4 


Peak 

-RE?  Station- 

-PPD  Station- 

- Peak 

Da  ta - 

Number 

STM/BM 

Freq 

STM/EM 

Freq 

TAU 

rOPPLER 

3 

0 

48.70 

0 

48.70 

0.0 

.0030 

3325 

1341021 

48.70 

1472365 

48.70 

22 . 7 

.0391 

3342 

1834261 

48.70 

2437001 

48.70 

-312.4 

-.0391 

3394 

1341036 

48.70 

1472341 

48.73 

15.6 

.0488 

332? 

1834275 

48.70 

2437009 

48.70 

-328  .4 

-.0352 

3319 

1341028 

48  .70 

1472355 

48.70 

28.4 

.0592 

3364 

1341325 

48.70 

1472351 

48.70 

39.7 

.0491 

3316 

1834268 

48  .70 

2437005 

48.70 

-321.1 

-.0379 

3343 

1341029 

48.70 

1472368 

48.70 

21.8 

.0523 

FAIRLY 

GOOD  SWITCHING 

OF  ARRAYS 

BUT  WITHIN  AN  ARRAY  PAIR 

THERE 

IS  TOO  MUCH  VARIANCE  DUE  TO 

THE  LOW 

COHERENCE 

LIMITS . 

EIC-URE  6-8 

LOW  COHERENCE  PEAK-DATA 
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RUN  NUMBER 

5  REGION  NUMBER 

5  TRACK 

NUMBER 

22 

Peek 

-REE  Station- 

-PRD  Station- 

— Peek 

Data - 

Numbe 

r  STM/BM 

Freq 

STM/BM 

(0 

,o 

TAU 

DOPPLER 

0 

0 

no 

• 

-<3 

0 

46.70 

0.0 

.0000 

3560 

2411031 

00 

• 

1441024 

49.70 

46  .3 

.0243 

3532 

2412034 

49.70 

1442067 

CD 

» 

62.1 

.0294 

3571 

2411041 

46.70 

1441028 

48.70 

36.2 

.0362 

3564 

2411036 

48.70 

1441021 

4R  .70 

25.7 

.0329 

3551 

2411036 

49.70 

1441025 

00 

• 

-<3 

to 

• 

CD 

CV 

.0336 

3554 

2411026 

46.70 

1441020 

48.70 

49.6 

.0195 

3584 

2411031 

48  .70 

1441024 

no 

• 

-vj 

CS> 

41.2 

.0293 

354? 

2411035 

49.70 

1441018 

48.70 

55.7 

.0264 

HC  SWITCHING  0?  ARRAY  PAIRS,  BUT  A  LOT  OF  VAFIANCE 
IN  THE  TAU  VALUES.  A  VERY  POOR  TRACK. 


FIGURE  6-9 


WORST  CASS  PEAK-DATA 
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RUN  NUMBER  6 

REGION  NUMBER  6  TRACK 

NUMBER  9 

Water  Time 

peak 

Prob 

— CHI  Sauar 

e  Scores — 

23-Feb-80 

Number 

Score 

Sta^ewi se 

Cumulative 

14:58:03 

0 

0 . 00 

0.0000 

0  .0000 

14:58:03 

3427 

-1.80 

0.3171 

0  .3171 

15:04:23 

3533 

-4 . 89 

0.0162 

0.1667 

15:14:30 

3449 

-3.99 

0.4410 

0.2581 

15:38:35 

3540 

-4.66 

1.4096 

0  .2460 

15:48:44 

3453 

-4.81 

2.0796 

0.8527 

15:49:31 

3421 

-4.31 

1 .8945 

0  .6892 

15:50:56 

3479 

-4.75 

2.0038 

0.93^7 

15:52:34 

3429 

-4.89 

2.2893 

0  .9402 

OUTSTANDING 

A  VERY  C-OOD 

CUMULATIVE 

TRACK  . 

SCORE  BY 

THE  FINAL  TIM 

E  PERIOD, 

FIGURE  6-10 

EXCELLENT  ACCURACY-DATA 
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RUN 

NUMBER  3 

REGION  NUMBER  1  TRACK 

NUMBER  4 

Water  Time 

Peak 

Prob 

-CHI  Square 

Score  s  — 

23-Feb-83 

Number 

Score 

S  tasjewi  se 

Cumulative 

16:52:56 

0 

0 . 00 

0 .0000 

0  .0000 

16:52:56 

3542 

-1.49 

0.1435 

0.1435 

16:55:37 

3478 

-1.27 

3.2159 

3.1537 

16:58:1? 

3548 

-1 .82 

0.5382 

0 .3829 

16:59:19 

3557 

-1.95 

0 .6547 

0  .4690 

17:03:02 

3461 

-2.56 

1.1321 

3.7323 

17:05:56 

3640 

-1.13 

0.2371 

0  .6501 

17:09:42 

3582 

-2.03 

0.6829 

3  .6928 

17:11  :46 

3533 

-3.05 

3.7928 

0  .7523 

THE  CUMULATIVE  SCORE 

SCORES  IS  VERY  HIGH. 

IS  FAIR 

BUT  NONE  OF  T^E  INDIVIDUAL 

FIC-URS  6-11 

LARGE  AREA  ACCURACY-DATA 
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RUN 

NUMBER  2 

REGION  NUMBER  3  TR/ CX 

NUMBER  6 

Water  Tirre 

Peak 

Prob 

— CHI  Sauare  Scores  — 

23-Feb-80 

N  umber 

Score 

S  t.asewi  se 

Cumu la  t i ve 

06:12:37 

0 

0.00 

0.3000 

0.0000 

06:12:37 

3325 

-0.83 

0.2134 

0  .2134 

06:13:25 

3342 

-1.52 

0.4327 

0.3463 

•36:14:03 

3394 

-1.83 

3.5621 

0 .4743 

06:14:5? 

3327 

-1.97 

0.7631 

0  .6411 

06:16:32 

3319 

-2.24 

0.6428 

0.6229 

36:17:29 

3364 

-2 . 56 

0.8817 

3  .7536 

06:18:54 

3318 

-2.72 

0.9443 

0 .7836 

06:20:21 

3343 

-2.74 

0.9218 

0  .7721 

FAIR  CUMULATIVE  VALUES,  BUT  LOW 

LOW  COHERENCE  LIMITS. 

INDIVIDUAL  VALUES  DUE  TO 

FIGURE  6-12 

LCW  COHERENCE  ACCURACY-DATA 
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RUM 

HUMBER  6 

REGION  ! 

NUMBER  4  TRACK 

NUMBER  7 

Water  Time 

Peak 

Prob 

— CHI  Square 

Scores — 

23-Teb-8? 

M  urber 

Score 

S  tagewi se 

Currula  tive 

21 :26  :04 

e 

0.00 

0.0000 

0  .0000 

21:36:04 

3560 

-0.90 

0.1^21 

0 .1021 

21 :3?:09 

3532 

-1.43 

3.2341 

0 .1725 

21:37:52 

3571 

-1.76 

0.3417 

0  .2628 

21:39:38 

3564 

-1 .93 

0.3176 

0  .4173 

21:39:41 

3551 

-2.36 

3.3814 

3  .4228 

21:40:02 

3554 

-2.54 

0.4027 

0  .4456 

21:40:58 

3584 

-2.36 

0.3311 

0  .4637 

21 :41 :44 

3547 

-2.21 

3.3517 

0  .4528 

VERY  LOW  CUMULATIVE 

SCORE.  A 

VERY  POOR  TrACK . 

FIGURE  6-13 

WORST  CASE  ACCURACY-DATA 
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4.  Surface-Plots 


The  surface  plots  can  reveal  a  great  deal  about 
the  actual  situation  in  any  area  without  picking  any 
special  track  to  correlate  on  because  it  displays  the 
entire  range  of  frequency  values  in  that  area.  When  the 
area  is  of  proper  size  for  the  type  of  surveillance  that 
is  being  conducted  and  the  coherence  limit  is  set  high 
enough  to  reduce  noise  yet  low  enough  to  detect  the 
required  signal,  then  a  surface  plot  can  assist  the 
operator  in  distingui  shir.g  a  valid  track. 

Figure  6-14  illustrates  the  type  of  display  that 
could  help  the  operator  to  concentrate  his  efforts  in  the 
area  on  the  left  side  of  the  plot.  Care  must  be  taken  as 
to  the  size  of  the  area  and  the  level  of  the  coherence 
limit  because  they  could  cause  a  surface  plot  to  present 
the  operator  with  a  false  impression  of  the  actual 
situation,  as  figure  6-16  illustrates. 

D.  SUMMARY 

The  scenario  section  of  the  embedded  tutorial  is 
important  to  the  development  of  qualified  operators 
because  it  gives  them  the  opportunity  to  refine  their 
skills  on  tactical  data  and  to  experiment  with  different 
combinations  of  parameters.  This  is  especially  important 
in  the  early  stages  of  developmen t  since  there  are  no 
concrete  guidelines  for  obtaining  the  best  picture  of  the 
surveillance  area. 
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type  ==>  Menu,  Location,  Peaces,  Accuracy,  Surface,  Return 


REGION  NUMBER  6 

COHERENCE  LIMIT  1.3 


C-COB  SOLID  PATTERN  DOWN  TEE  LETT  SID^  OF  TEE  REGION. 


FIGURE  6-14 

EXCELLENT  SURFACE-PLOT 
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type  ==>  Nenu,  Location,  Peaks,  Accuracy,  Surface,  Peturn 


REGION  NUMBER  1 

COHERENCE  LIMIT  1.0 


NO  PATTERN  IN  THIS  LARGE  AREA. 


FIGURE  6-15 

LARGE  AREA  SURFACE-PLOT 
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type  =='>  Menu,  Location,  Peaks,  Accuracy,  Surface,  Return 


REGION  NUMBER  3 

COHERENCE  LIMIT  0.6 


TOO  MUCH  NOISE  DUE  TO  THE  LOW  COHERENCE  LIMITS 


EIGURE  6-16 

LOW  COHERENCE  SUREACE-PLCT 
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type  ==>  Menu,  Location,  Peaks,  Accuracy,  Surface,  Return 


REGION  NUMBER  4 

COHERENCE  LIMIT  0.6 


A  LOT  CP  NOISE  DUE  TO  TOC  LOW  COHERENCE  LIMITS  AND 
TOO  LARGE  AN  AREA  TO  COVER  ADEQUATELY. 


FIGURE  6-17 

WOPST  CASE  SURFACE-PLOT 
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VII.  CONCLUSION 


The  data  obtained  tends  to  indicate  that  computer 
assisted  instruction  is  superior  to  conventional  training 
when  the  trainee  will  eventually  be  working  on  a  computer 
or  console.  This  can  be  attributed  to  certain  individuals 
being  more  inclined  toward  this  type  of  work  and  thus  the 
use  of  a  computer  based  instruction  seems  quite  natural. 
The  failures  in  the  use  of  computer  based  instruction  tend 
to  be  in  fields  that  require  more  manual  dexterity,  i.e. 
machinist  mate  and  boiler  technician,  or  where  the  trainee 
has  a  much  lower  initial  aptitude.  If  the  trainee  has  poor 
reading  skills,  this  type  of  instruction  will  highlight 
all  of  his  weaknesses,  whereas  some  individuals  can 
acquire  a  great  deal  of  knowledge  by  listening  to  an 
instructor. 

The  disadvantage  of  computer  based  instruction  in 
almost  every  case  is  the  cost  of  the  intial  system 
compared  to  the  cost  of  a  teacher  for  the  same  number  of 
students.  An  embedded  tutorial  reduces  the  cost  since  the 
computer  is  already  paid  for  by  its  operational 
requirement.  The  only  expense  is  possibly  of  an  additional 
console  and  the  cost  of  the  instructional  code.  The  extra 
console  could  be  used  as  a  spare  for  the  operational 
system  and  the  instructional  code  should  not  be  too  much 
more  expensive  than  the  printing  of  a  textbook. 

Ey  the  demonstration  of  the  instuction  presented  in 
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this  paper,  it  is  hoped  that  future  research  can  he  done 
in  the  area  of  computer  based  instruction  for  the 
appropriate  fields.  The  flexibility  of  the  instruction, 
the  ease  of  manipulation,  and  the  variety  of  possible 
displays  all  point  to  the  vast  cap abilities  of  a  color 
graphics  tutorial. 

A.  RECOMMENDATIONS 

Further  research  should  be  conducted  into  the  use  of 
computer  assisted  instruction  for  certain  types  of  jobs, 
i  .e .  ASW  surveilance,  secretarial  positions,  clerical 
positions,  communications  personnel.  The  natural  abilities 
of  personnel  entering  these  fields  makes  the  use  of 
computers  seem  almost  natural,  since  they  generally  have 
both  a  higher  I.Q.  and  clerical  aptitude. 

This  tutorial  should  be  designed  for  the  Ramtek  9403 
since  that  is  the  equipment  to  be  used  operationally.  The 
school  is  presently  installing  a  Ramtek  9433  so  work  could 
continue  on  this  project  by  transferring  the  code  to  the 
new  system  with  improved  performance  because  of  the 
superior  capabilities  of  the  new  console.  The  amount  of 
code  required  by  many  of  the  displays  could  be  reduced 
because  the  Ramtek  9430  can  perform  some  functions  easily 
which  are  quite  complex  on  the  existing  system. 

The  use  of  color  can  enhance  the  pattern  recognition 
capabilities  of  humans  so  a  further  project  would  be  to 
display  the  surface  plot  data  in  different  colors 
corresponding  to  signal  amplitude. 
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Another  project  would  be  to  write  an  algorithm  that 
would  take  actual  data  from  the  operational  system  and 
transform  it  into  displays  that  could  be  used  for  the 
scenario  section  of  the  tutorial.  This  would  give  the 
operator  an  almost  limitless  number  of  new  examples  on 
which  to  practice. 
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^  jJj  ?{%  5jJ  ^4  5^C  Sjf  5^  5{t  Sj?  3jC  5^  V  n»  5j?  *i^ 

*  * 

*  This  is  the  main  section  of  code  that  controls  the  other  * 

*  separately  compiled  sections  of  code.  It  establishes  the  * 

*  type  of  tutorial  that  the  user  wishes  to  see  and  then  it  * 

*  forks  to  that  section  of  code. 

###### ###### £###############  ##  ######  j[c  ##  #######  / 

char  select;  /*  global  variable  */ 

main(  )  { 

float  x,y, z; 
char  cc ,cd ,ce,*s t ; 
int  i  > 

ramtekO;  /#ini  tiali  zes  the  Rarrtek  system  #/ 
wri ton(l ) ; 

colortable ( ) ;  /*  establishes  a  new  color  table  */ 

colort (10) ; 

picl( );  /*  allows  the  first  display  to  remain  #/ 

cc='z ' ; 

while  (cc!='s')  {  /*  while  #1  */ 

cc=retchar ( ) ;  }  /^end  while  #1  #/ 

while  (1)  {  /*  while  #2  */ 

colort ( 10  )  > 

pic99()>  /*  introduction  display  */ 

cc  =  'z '  > 

whi le (cc=='z  ' )  {  /*  while  #3  */ 

cc=retchar ( ) ; 

switch(cc)  {  /*  switch  #1  */ 

case  'a':  /*  basic  tutorial  */ 

selec t=  'a  ' ; 
break; 

case  'b':  /#  data  display  tutorial  */ 

select=  'b '; 
break? 

case  'c':  /*  senario  tutorial  */ 

select=  'c  '  J 
break; 

case  'q':  /*  Quit  */ 

pstop(  ) ; 

pic99();  /*  introduction  display  */ 

cc  =  'z ' ; 
break; 
default: 
cc  =  'z  ' ; 

}  /*  end  switch  #1  */ 

}  /*  end  while  #3  */ 

color(15) ; 

block( 14. 0,2. 0,90. 0,10.0); 
strtiy(30 .0 ,8.0) ; 
color (0j; 

strout(*Do  you  want  any  instructions?  (  y  /  n  )")» 
cc=retchar ( ) ; 
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f 


*  ■& 


if  (cc=='y  )  { 

pic89()»  /*  instruction  display  *V 

cc=retcha r  ( )  >' 
while  (cc!='c') 
cc=retchar ( ) ; 

} 

switch  (select)  {  /*  switch  ^2  */ 

case  'a':  /*  basic  tutorial  */ 

colort  (1 ) » 

asw();  /*  interrupt  display  */ 
sleep (4) » 

if  ( (  i=f ork( )  )==0 )  J[ 
execl ( "segl ”  ,  "segl  ,0); 
exi t ( ) ; 

} 

wai t (&i  ) ; 
break* 

case  'b':  /*  data  display  #/ 

colort (2 ) ; 

asw();  /*  interrupt  display  */ 
sleep (4) ; 

if  ( (  i=f ork( ) )==0 )  { 

ex eel ( ”seg3" f ”seg3”  ,0) ; 
exit ( ) ; 

} 

wait  (&i ) ; 
break; 

case  'c'i  /*  senario  tutorial  */ 
colort (3 ) ; 

asw();  /*  interrupt  display  #/ 
sleep(4) ; 

if  ( ( i=fork ( )  )==0.)  ..  { 

execl ("Senerio" , "Senerio" ,0  ) ; 
exit  ( ) ; 

} 

wait (&i ) ; 
break; 
default : 

printf ("ERROR"); 

}  /*  end  switch  #2  */ 

}  /*  end  while  #2  */ 

}  /*  end  main  #/ 


colortable()  {  /*  Establishes  a  new  color  table  #/ 


int 


[16] ; 

0]  =  triole(0,0*0) ; 
1]  =  triple(15, 0, 0) ? 
21  =  tripled, 15,0); 
[3]  =  tripled, 0,15); 

4]  =  triple(15, 5,0); 

5]  =  tripled, 0,6)  ; 

6]  =  tripled, 10,0); 


/*  black  */ 

/*  blue  */ 

/*  green  */ 

/*  red  */ 

/*  light  blue  */ 

/*  maroon  */ 

/*  bright  green  */ 
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a 

a 


[7]  =  triple (2,6,10)? 
_[8]  =  tripled, 10, 2); 
a  [91  =  tripled®, 2,6); 
a  [101  =  triple  (13,5,2); 
a  [11]  =  tripled, 2, 13); 
a  [121  =  triple  (2,13,5)  ; 
a  [13]  =  triple(15,0,15); 
a  [14]  =  tripled®, 4, 4); 
a  [15]  =  triple  (15 , 15 , 15  ); 
clrtbl (10 ,a ) ; 


return; 

} 


/*  peach  */ 

/*  pail  green  */ 

/*  purple  #/ 

/*  medium  blue  */ 
/*  hot  pink  */ 

/*  light  green  * / 
/*  pink  #/ 

/*  greyish  blue  * / 
/*  white  */ 


pstopO  { 

/*  Bi splays  the  question  of  Do  you  really  want 
to  quit?"  and  then  waits  for  a  reply  */ 

char  *st ,*sp, stop; 
sp="  "; 
color ( 11 ) ; 

block (0.0,0. 0,1 00.0,1 00.0 ) ; 
color( 5 ) ; 

s trtxy (45.0,80. 0  ) ; 
s  t  ="  B 0  YOU  ; 
strout(st);  strout(sp); 
st="REALLY "  J 
strout (st ) ; 
strout ( sp ) ; 

St=”WANT  TO"? 
strout(st);  strout(sp); 
st="  QUIT?"; 
strout (st ) ; 
st=  (y  /  n)  ; 
strout ( s  t ) ; 
stop=retchar ( ) ; 
if  ( stop==  'y  ' )  { 

c  o  1  o  r  ( 0  ) ; 

block (0.0,0.0,100. 0,1 00.0); 

exit();  /*  Exits  program  if  user  want  to  quit  */ 

return; 

} 


picl()  {  /*  Bisplays  ASW  in  large  block  letters  #/ 

char  *stl  ,*st2J 
color (3 ) ; 

block (0.0 ,0.0,100.0,100.0); 
color (12); 

bl ock( 15. 0,50. 0,20.0, 68.0) J 
block( 30. 0,50. 0,35 .0,68 .0); 
bl ock( 15. 0,58. 0,35.0, 63.0)  J 
block( 15. 0,68. 0,21 .0,69.0) ; 
bl ock( 16. 0,69. 0,34.0 ,70.0) ; 
block (17. 0,70. 0,33.0,71 .3) 5 
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block (IS. 0,70. 0,32.0  ,72.0) 
block (19. 0,71. 0,31. 0,73.0) 
block (29. 0,68. 0,34. 0,69.0) 
block( 40. 0,50. 0,60. 0,55.0) 
block(55. 0,5 0.0, 60. 0,63.0) 
block( 40. 0,58. 0,60. 0,63.0) 
block (40. 0,58. 0,45. 0,73.0) 
block (40. 0,68. 0,60. 0,73.0) 
block (65. 0,50. 0,70. 0,73.0) 
block (80. 0,50. 0,85. 0,73.0) 
block (74. 0,53. 0,76. 0,60.0) 
block (73. 0,52. 0,74. 0,59.0) 
block (72. 0,51. 0,73. 0,58.0) 
block (71. 0,50. 0,72. 0,57.0) 
block(70. 0,50. 0,71. 0,56.0) 
block( 76. 0,52.0 ,77.0,59.0) 
block (77. 0,51. 0,78. 0,58.0) 
block (78. 0,50. 0,79. 0,57.0) 
block( 79. 0,50. 0,80. 0,56.0) 
dblwid  ( 1 ) » 

st i="embedded”  ; 

St2="TUT0RIAL"; 
strtxy (40 .0 , 40 . 0 ) ; 
strout ( stl ) ; 
strout (st2 )  > 
dblwid (0) ; 
strtxy (70 .0 , 5.0  )  > 
color ( 15  ) ; 

strout(  type  s  to  start  ); 
return? 

} 


pic99()  {  /*  Introduction  Display  */ 

color (4 ) ; 

block( 0.0, 0.0, 100. 0,1 00.0); 

color (0 ) ; 

dblwid(i); 

strtxy (20 .0,95. 0  )  J 

strout ("EMBEDDED  TUTORIAL  INTRODUCTION")? 

dblwid (0 ) ; 

strtxy (15 .0 ,87. 0  ) ; 

strout("  This  tutorial  is  designed  to  meet  the  needs  of  an 
assortment  of"); 

strout ( "users ,  from  the^novice  to  the  experienced  tracker. 
>tThere  are  three"  )  ; 

strout( "categories  that  can  be  reviewed:  ”); 
s  t r out ( ^  )  J 

strout(”a)  The  basic  principles  of  the  system  are  discussed 
and  many  of  the"); 

strout(”  problems  associated  with  the  system's  environment 
are  dealt  with” ) ; 

stroutT]  in  detail  in  this  section.  "); 

strout(”b)  The  types  of  data  that  will  be  displayed  during 
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actual  system"); 

strout("  operation  are  presented  along  with  explanations 
of  the  data  and" )  ; 

strout ("  key  areas  to  watch  for  while  tracking. 
strout(  c)  A  set  of  practice  senarios  are  presented  based 
on  the  user  inputted"); 

strout("  parameters.  These  senarios  allow  the  user  to 
see  actual  data  being”  ) ; 

strout(”  presented  and  the  effects  of  various  parameter 
settings.  Key  points"); 

strout("  are  also  highlighted  in  this  section.  ”); 
strtxy( 15. 0,8.0) ; 

strout("type  in  the  letter  of  the  desired  category  (a,h,c) 
or  (q)  to  quit"); 

return ; 

} 

pic89()  {  /*  Instruction  Display  #/ 

color(l ) ; 

block (0.0, 0.0, 130.0, 103.0); 
color (4) 5 

block( 0.0, 30. 0,100- 0,90.0) ; 
strtxy (10. 0,97.0); 
color (2 ) ; 

strout  ( "Menu  of  po  ssi  ble.areas  to  proceed  to  next  is 
presented  here."); 
strtxy (20 .0 ,70.0 ) ; 
switch( select )  { 

case  'ad.. 

strout("  Basic  diagrams  will  be  illustrated  in  this 
..area.  They  will"); 

s trout ("depi ct  a  view  of  the  overall  system,  environ¬ 
mental  problems,”); 

st,rout("and  detailed  displays  of  questionable  areas. 
..Review  this  area"); 

strout ("before  reading  the  explanation  below.  "); 
break; 
case  'b':.. 

strout("  This  section  will  illustrate  some  typical 
..data  that  would"); 

strout("show  up  as  the  tracker  is  utilizing  the 
operational  system."); 

strout("The  data  will  represent  some  relatively  good 
tracks  in  order"); 

strout("to  demonstrate  how  the  data  should  appear.  "); 
break; 
case  'c':.. 

strout("  The  data  illustrated  in  this  section  is 
dependent  upon  the"); 

strout("user  inputs  of  parameters.  As  the  user  alters 
the  parameters" ) J 

strout("on  the  menu  display,  the  computer  alters  the 
type  of  data  "); 

strout ("that  will  be  exhibited.  "); 
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“break? 

} 

strtxy (16. 0,29.0); 
swi tch ( selec t )  { 

case  'a':fi 

strout("  An  explanation  of  the  above  area  will  be 
displayed  in  this"); 

strout(  section.  Generally  it  will  be  a  simplified 
review  of  the  basic"); 

s trout (" concept  with  a  few  new  ideas.  If  the  new  ideas 
are  no t  fully" ) ; 

strout ("understood ,  then  they  will  probably  be  listed 
in  the  menu  and" ) ; 
strout("can  be  pursued  further.  ”); 
break ; 
case  'b':tt 

strout ("  An  explanation  of  the  above  data  and  some  key 
points"); 

strout(  to  watch  for  will  be  described  in  this  section.") 

break; 
case  'c':t 

strout("  A  very  brief  statement  about  the  data  and  its 
reasons  for"); 

strout ("being  good  or  bad  will  be  described  in  this 
sec  tion .  " ) 5 

break; 

} 

strtxy(50. 0,6.0 ) ; 
strout("type  c  to  continue"); 
return; 

} 


asw()  I  /*  Interrupt  Display  */ 
float  xj 
int  i; 
i  =6 ; 

f  or  (x=0 .0  x<41 . 0  Jx=x+5 . 0 )  { 

i=i+i; 
color ( i  ) ; 

block(x ,x ,100 .0-x,100.0-x  ) ; 

} 

strtxy(45. 0,58.0) ; 
color(l]; 

strout(f’  A  S  W  "); 
strout  ("Embedded’] ) ; 
strout ( "Tutorial  "  ) ; 
return ; 

} 
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/*########£##############£#######£*##########*######£###### 

#  This  program  demonstrates  some  of  the  capabilities  of  # 

#  a  computer  to  instruct  individuals  in  basic  skills.  # 

#  It  is  designed  to  be  self-paced  and  totally  contains  # 

#  all  the  material  required  (  pictures,  text,  formulas,  # 

#  and  instructions).  Once  the  user  is  logged  on  there  is  # 

#  no  need  for  an  instructor  to  monitor  the  individual.  # 

#  Due  to  the  size  of  the  program,  it  is  broken  up  into  # 

#  five  modules  that  are  compiled  separately  and  then  are  # 

#  forked  together  when  required.  There  are  three  parts  # 

#  to  the  tutorial  and  then  the  senario  section.  This  is  # 

#  the  first  section  of  the  tutorial.  # 

#########################################################*/ 


main(  )  { 

float  x,y,z? 
char  cc  ,cd ,ce,*st; 
int  i; 

ramtekf):  /^initializes  the  Ramtek  system  */ 
writon(l  ); 

colortable ( ) »  /*  establishes  a  new  color  table  */ 

color t ( 10 )  ♦ 

picl()»  /*  allows  the  first  display  to  remain  */ 

sleep(5);  /*  on  the  screen  5  seconds  before  * / 

pic2();  /*  the  second  display  is  presented  */ 

cc='z ' ; 

while  (cc==' z')  {  /*  while  #1  */ 

cc=retchar( ) ; 

switch(cc)  {  /*  switch  #1  V 

case  'c':  /*  Continue  */ 

pic3( ) ; 

C  ^  =  2  j 

while  (cd=='z')  {  /*  while  #2  */ 

cd=retchar( )> 

switch(cd)  {  /*  switch  #2  V 

case  'c':  /*  Continue  */ 

break? 

case  'r':  /*  Return  */ 

pstop( ) ; 

nic3();  /*  disolays  pic3  if  quit  isn't  desired  */ 
cd='z ' ; 
break; 
def aul t : 
cd='z  '; 

}  /*end  switch  #2  */ 

}  /*  end  while  #2  */ 

break; 

case  't':  /*  Extra  display  if  '{'  is  accidently  typed*/ 
pic2a (  ) ; 
cc='z ' ; 
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break; 

se  'r ' :  /*  Return  */ 

ps  t  op ( ) ; 

pic3();  /*  displays  pic  3  if  quit  isn't  desired  #/ 


cc='z ' ; 
break; 
default : 
cc='z'J 

}  /*  end  switch  #1  */ 

}  /*  end  while  #1  */ 

pic4(  ); 
cc='z '; 

while  (cc=='z')  {  /*  while  PZ  */ 

cc=retchar ( ) ; 

switch(cc)  {  /*  swithch  #3  */ 

case  'n':  /*  Noise  display  */ 

pic31(); 


cc='z 


break  J 
case 

uic32 ( ) ; 
cd='z  '; 

while  ( cd== ' z  ' ) 
cd=ret  char(  ) ; 
switch(cd)  { 
case  'n  ' 
pic31 ( ) ; 
cc='z  ' 
break; 
case  't' 


pi c33 ( ) ; 
cc=  'z  ' 
b  r  ea  k ; 
case  'w' 
pic34( ) ; 
cc  =  'z 


/*  Distance  display  */ 

{  /*  while  #4  *  / 

/*  switch  #4  */ 

/*  Noise  display  */ 

/*  steps  out  of  while  #4  */ 

/*  ?ime  display  */ 

/#  steps  out  of  while  #4  */ 

/*  Water  temperature  display  */ 

/*  steps  out  of  while  #4  */ 

/*  Tau  line  display  */ 


break ; 
case  '1  ' 
pi c321 (  ); 

C  p  =  *  2 

while  ( ce=='z ' )  { 

ce=retchar (  ) ; 

switch(ce)  {  /*  switch  #5  */ 

/*  Noise  disolay  */ 


/*  while  #5  */ 


case  'n' 


pi c31 ( ) 

cc='z  ' 

break; 

case  't' 

pi c33 ( ) ; 
/  / 
cc=  z 

break; 

case  'd' 

pic32(  ) ; 

cc=  z 


/*  steps  out  of  while  #4  5V 
/*  Time  display  */ 

/*  steps  out  of  while  #4  */ 
/*  Distance  disnlay  */ 

/*  steps  out  of  while  #4  */ 
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break? 
case  '  w ' : 
pic24 ( ) ; 
cc='z'j  / 
break; 

case  'p ' :  / 

pic3211  ( ) ; 
cc='z';  / 

break; 
case  'c': 
pic5();  / 

break; 
case  'r': 
pstoo(  ) ; 
pi c321 ( )  J 
ce=  z  5 
break? 
def aul t : 


/*  Water  temperature  display 

*  steps  out  of  while  #4  */ 

*  Tau  line  problems  */ 

*  steps  out  of  while  *4  */ 

/*  Continue  */ 

*  steps  out  of  while  #2  */ 

/*  Return  */ 

/*  displays  pic  321  if  quit 
/*  isn't  desired 


*/ 


*/ 

*/ 


ce='z  '; 

}  /*  end  switch  *5  */ 

}  /*  end  while  #5  */ 

break; 

case  'c':  /*  Continue  */ 

pic5 ( ) ;  /*  steps  out  of  while  #3  */ 

break ; 

case  'r':  /*  Return  */ 

ps  top ( ) ; 

pic32 (); /*di splays  pic  32  if  auit  isn't  desired*/ 
cd='z  '; 


break; 
def aul t : 
cd=  z  > 

}  /*  end  switch  #4  */ 

}  /*  end  while  *4  */ 

break? 

/*  Tine  display  */ 


case  't' 
pic33(  ) ; 
cc='z'J 
break; 
case  'w': 
pic34 ( ); 
cc='z ' ; 
break; 
case  'c': 
p ic 5  ( ) ; 
break; 
case  'r't 
pstop (  ) ; 
pic4  ( ) ; 
cc='z '; 
break; 


/*  Water  temperature  disolay  */ 


/*  Continue  */ 


/*  Return  */ 

/*  displays  pic  4  if  quit  isn't  desired  */ 


def aul t : 
cc=' z ' ; 

}  /*  end  switch  #3  */ 
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}  /*  end  while  #3  */ 

if ( ( i=f ork( ) )==0)  {„  /*  If  stmt  #1  */ 

execl ( "seg2", "seg2” ,0 ) ;  /*  forks  to  segment  2  */ 

exit (  ) ; 

}  /*  end  If  stmt  #1  */ 

wait (&i  ) ; 

}  /*  end  of  main  */ 


colortable()  {  /*  Establishes  a  new  color  table  */ 


int 


f  16] 
[O' 


} 


[1 
[2 
[3. 
a  [4. 
a  [5]  = 
a  [61  = 
a  [?]  = 
a  [8]  = 
a  [91  = 
a  [10]  = 
a  [11]  = 
a  [12]  = 
a  [13]  = 
a  [141  = 
a  [151  = 
clrtbl ( 10 , a 
return » 


trinle(0,0,0) J 
tripled?  ,0,0) ; 
t ri pie ( 0, 15 ,0  ) ; 
tripl e (0 , 0 , 15 ) ; 
tripled?,  5,0); 
tripled.  0.6)  ; 
tripled, 10,0) ; 
tripled, 6, 10) » 
tripled, 10, 2); 
trinl e (10 ,2  ,6 ) ; 
triple  (13,5,2); 
tripled, 2,13)  J 
triple  (2,13,5); 
triple(15,0,15) ; 
triple(13,4 ,4) ; 
triple( 15 ,15 , 15 ) ; 
); 


/*  black  */ 

/*  blue  */ 

/*  green  ***/ 

/*  red  */ 

/*  light  blue  */ 

/*  maroon  514 / 

/#  bright  green  */ 
/*  peach  */ 

/*  pail  green  */ 

/*  purple  */ 

/*  medium  blue  */ 
/*'  hot  pink  # / 

/*  light  green  */ 
/*  pink  */ 

/*  greyish  blue  #/ 
/#  white  */ 


pstop()  { 

/*  Di  splays  <f  the  question  of  "do  you  really  want 
to  quit?”  and  then  sets  the  value  of  STOP  */ 

char  ^s  t  dsD ; 
sp=  ; 
color  (11 )  *, 

block( 0.0, 0.0, 100. 0,1 00.0) ; 
color  (5 ) ; 

strtxy(45. 0,80.0) ; 

st="l)0  you"; 
strout(st);  strout(sn); 
s  t =  REALLY  ; 
strout ( st ) ; 
strout (sp) ; 
s t=" WANT  TO"; 
strout(st);  strout(sp); 
st=”  RETURN  TO"; 
strout(sp); 

stroutdTEE  MAIN");  strout(so); 
strout ( "PROGRAM? " ) ; 
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strout ( s t  )  ? 
st=" ( y  /  n)"; 
strout ( s  t ) ; 

STOP=retchar ( ); 
if  (STOP ==V)  { 

STOP='Y'; 
color (0 )  > 

block( 0.0 ,0.0, 100. 0,100.0)  ; 
} 

return? 

} 


picl()  {  /*  Displays  ASW  in  large  block  letters  */ 

char  *stl,*st2; 
col  or (3  ) ; 

block(0. 0,0. 0,1 00. 0,100.0); 
color (12)? 

bl ock( 15. 0,50. 0,20.0, 68.0) ; 
block(30. 0,50. 0,35. 0,68.0); 
block(15. 0,58. 3, 35. 0,63.0); 
bl ock (15.0, 68.0, 21 .0,69.0)  ; 
block( 16. 0,69. 0,34. 0,70.0); 
block (17. 0,73. 0,33. 0,71.0)  J 
block(16.0,,70. 0,32. 0,72.0); 
bl ock( 19. 0,71. 0,31.0 ,73.0) ; 
block (29. 0,68. 0,34. 0,69 .0) ; 
bl ock(40.0, 50. 0,60.0, 55. 0) ; 
block( 55. 0,50.0, 60. 0,63.0); 
block (40. 0,58. 0,60. 0,63. 3) ? 
bl oc k(40.0,58. 0,45.0, 73.0 ) ; 
bl ock(40.0, 68. 0,60.0 ,73.0) ; 
bl ock(65.0,53. 0,70.0, 73.0  ) ; 
bl ock( 80.0, 50.0, 85. 0,73.0) ; 
block( 74. 0,53. 0,76. 0,60.0) ; 
block (73.0, 52. 0,74.0, 59. 0) ; 
bl ock (72. 0,51. 0,73.0, 58.0 ) ; 
block( 71 .0,50.0,72.0,57.0); 
bl ock (70.0,50. 0,71.0, 56. 0) J 
bl ock( 76. 0,52. 0,77.0, 59.0 ) ; 
block( 77. 0,51. 0,78. 0,58.0) ; 
bl ock (7e.0, 50. 0,79. 0,57.0); 
bl ock (79. 0,50. 0,80.0, 56. 0) ; 
dblwid(l); 
st 1="EM3EDPED" ; 

St2=’’TUT0RIAL"  ; 
strtxy(40 .0 ,40 . 0) ; 
strout (stl )  J 
strout ( s  1 2 ) ; 
dblwid ( 0  ) ; 
return ; 
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p  i  c  2  (  )  f  /■•'  This  subroutine  displays  the  instructions 

needed  to  use  the  tutorial  */ 

char  *st? 
int  stime; 
color (1  )  ; 

block  (0.0, 0.0, 100. 0,100.8')? 
col  or  (2  ) ; 
dhlwid ( 1 ) ; 
s trtxy (25 .0 , 96.0  ) ; 

S  t=" TUTORIAL  INSTRUCTIONS”; 
strout ( st ) ; 

vector (25. 0,92. 0,72.0  ,92.0) ; 
dhlwid ( 0 ) ; 
strtxy(10. 0,91.0) ; 

st=”  This  embedded  tutorial  is  designed  to  give  you  the 
hands  on  training"; 
strout (st ) ; 

st="required  to  operate  this  ASW  surveilance  system.  It 
contains  some  overall"; 
strout( st ) ; 

st=”views  of  the  system,  sore  theory  of  its  working  capabil¬ 
ities  and  then  a  short"; 
strout ( s  t ) ; 

st=”scenerio  of  possible  actions  which  can  be  taken  by  you"; 

strout (st ) ; 

••  •• 

st=  ; 

strout (st ) ; 

st=  To  operate  the  tutorial  there  are  three  areas  to  watch 
strout ( s t ) ; 

st="l)  all  of  the  instructions  at  the  top  of  each  frame 
provide" ; 
strout (st ) ; 

st="  you  with  the  possible  areas  you  can  proceed  to  next"; 
strout (s  t ) ; 

st="2)  The  middle  area  is  either  a  display  which  will  be”; 
strout (st ) ; 

st="normally  viewed  while  operating  the  system  or  it  is  a"; 
strout (st ) ; 

st="display  that  provides  a  better  view  of  the  entire  system 
strout (st ) ; 

st="3)  The  bottom  area  gives  you  an  explanation  of  the 
middle  area."; 
strout(st) ; 

•  •  *9 

st=  ; 

strout ( st ) ; 

st="To  utilize  the  tutorial,  press  the  key  of  the  first 
letter" ; 
strout(st); 

st="of  the  word  which  describes  where  you  wish  to  proceed."; 
strout(st); 

st="  type  ==>  Continue,  Filter,  Quit"; 

strout (s  t ) ; 

st="3y  typing  an  f  you  would  proceed  to  a  display  of  filters 
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•IOW  TYPE  c  TO  continue”; 


strout (s  t )  5 
•• 

st  = 

strout ( st ) ; 
return ; 

} 


pic2a ( )  { 

/*  This  subroutine  is  displayed  if  a  mistake  is 
committed  by  the  user  on  the  instruction 
display  */ 

char  *st; 
color(2) ; 

block (0.0,0. 0,100. 0,100.0) ; 

color ( 12 ) ; 

strtxy(50. 0,50.0) ; 

st="TYPE  c"; 

strout ( s  t ) ; 

return  > 

} 


pic3 (  )  f 

/*  This  subroutine  calls  for  the  display  to  be  set 
ut>  and  tells  about  the  nurpose  of  the  system  */ 

char  *st; 
color  ( 1 )  >* 

bl ock( 0.0, 0.0, 100.0,1 00.0 ) ; 
ocean ( )  5 
color(2 )  » 

strtxy(10. 0,98.0); 
st="type  ==>  Continue,  Quit”; 
strout (st ) » 
strtxy(4.0,28.5) ; 

st=”  This  system  is  designed  to  pick  up  frequency  changes 
in  the  ocean  and  determine"; 
strout (st ) ; 

st="whether  or  not  they  were  made  by  a  submarine  or  other 
vessel.  Assuming  there"; 
strout (s  t ) ; 

st="was  an  area(green  square)  in  the  ocean  where  you  wished 
to  watch  for  submarines,"; 
strout(st) ; 

st="all  that  would  be  necessary  are  the  two  arrays  of 
hydrophones  (1  and  2)  and"; 
strout (s  t ) ; 

st="the  technique  to  analyze  their^output s .  For  better 
results  additional  arrays  can"; 
strout(st); 

st.="be  added,  for  instance  3."; 
strout ( st ) ; 
return ; 

} 
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oceanO  { 

/*  This  subroutine  draws  the  basic  display  of  the 
ocean,  area  under  surveilance,  lard,  and  the 
arrays  */ 

char  *st ; 
color (4) I 

block (0.0, 29. 0,100. P',90.0) ; 
land (  ) ; 
arrays ( ) * 
color (6 ) ; 

block ( 10. 0,60. 0,26. 0,80.0); 
return ; 

} 


arrays ()  {  /#  Draws  the  arrays  */ 

color (7) ; 

block (79.0 ,34.0 ,80 .0,79.0) 5 
block (25. 0,32. 0,29. 0,33.0); 
vectcr(79.0,33.9,82.0,37.1) ; 
vector (79. 5, 33.8, 82.5 ,37.2); 
vect or (79. 7,33. 7,82.7, 37.3 ) J 
vector (80. 0,33. 6, 83.0,37.4); 
vect or (79. 2,33. 5,82. 2,37.5 ) ? 
vector (79.3,33.4,82.3,37.6) ; 
return ; 

} 

land()  {  /*  Draws  the  land  #/ 

c ol or (5  ) ; 

block(  84.0, 50.0 ,100.0,90.0); 
b lock (95. 0,30.0, 100. 0,55. 0) ; 
block (89. 0,40. 0,96. 0,51 .0) J 
block (92. 0,33. 0,96. 0,41 .0) ; 
vector( 89. 0,40. 0,84. 0,5 3.0); 
vector (89. 0,40. 0,84. 2, 50.0) J 
vec tor (89. 0,40. 0,84.4,50.0 ) ; 
vector(89. 0,43. 0,84. 6, 53.0); 
vec tor (84. 0,50.0, 82.0 ,63.0) ; 
vect or (84.0, 50. 0,82. 2, 63.0 ) ; 
vect or (£4. 0,50. 0,82.4,63.0) ; 
vector(84.3,50.0,82.6,63.0) ; 
vec tor (82. 0,67. 0,83. 0,73 .5); 
vector (82.1,67.0,83.0,73.5) J 
vec tor (82. 2, 67. 0,83.0,73 .5) ; 
vector ( 82 .3 , 67. 0 ,83.0 ,73 .5 ) ; 
vect or (83. 3, 84. 0,81.0, 90.0 ) ; 
vector (83.0,84.0,81 .2,90.0) ; 
vec tor (83. 0,84.0, 8 1.4, 90.0); 
vector (83. 0,84. 0,81. 6, 90.0) ; 
vector (97.0,29.0,95.0 ,30.0) ; 
vec tor (95.0,30. 0,92. 0,33.0); 


110 


vec t  or ( 92 . 0 , 33. 0 , 69 .0 , 40 .0 )  ; 
vec tor (92. 0,33. 0,89. 2, 40.0 ) ; 
vector(92.0,33.0,89.4,40.3); 
vector(92.0,33.0,69.6,40.0); 
block (82. 8, 78 .0,83.0 ,90.0); 
block (88. 5, 40. 0,90. 0,43.0) ; 
block (82. 8, 57 .0,84.0, 60.0 ) 5 
vector(92.0,33.0,89.8,40.0); 
bl ock( 97.0, 29. 0,100. 0,31. 0) J 
block (86. 0,45. 0,90. 0,51 .0) ; 
block (83. 0,58.0 ,86 .0,90.0) 5 
bloc k( 96. 0,29. 0,98. 0,31.0); 
block (95. 5, 29. 5, 98. 0,31.0); 
block(96. 5, 29. 0,98. 0,30.0); 
vector (97.1 ,29.0,95.0 ,30.2  )  J 
block(93 .5 ,31 .2 , 96 . 0 , 34 . 0 ) ; 
block (92. 7, 32. 0,98. 0,34.0); 
block(90.0,36.6,94.0,41.0) J 
block (91 .0 ,34.4,94.0,41 .0) ; 
block ( 87.2, 42. 2, 90.0,46.0); 
block (84.8,47. 2, 88.0, 51.0 ) ; 
block (82. 0,62. 7,85. 0,67.0); 
block (82. 0,88. 0,35. 0,90.0) J 
block(82.5,66.0,84.0,71.0); 
block (82. 5, 86. 0,64. 0,89.0) ; 
block (83. 5, 53. 0,85. 0,60.0); 
bl ock (82.5, 60. 0,64.0, 65.0) ; 
return ; 

} 


pic31()  {  /*  Noise  display  #/ 

char  *st; 
color ( 1 ) ; 

block (0.0, 0.0, 100. 0,100.0)  ; 
color(7 ) ; 

block (0.0, 29. 0,100. 0,90.0) ; 
color (2 ) ; 

st="type  ==>  Continue,  Distance,  Time,  V'ater(  temp ) ,  Ouit"; 
strtxy(10.0,98. 0)  J 
strout (st ) : 
strtxy(4.0 ,27.5 ) ; 

st="  Noise  is  what  we  are  attempting  to  detect  in  the  ocean, 
however  there  is  other"; 
strout (st ) ; 

st=’’noise  in  the  water.  This  detection  can  be  compared  to 
trying  to  listen  to  a"; 
strout (st ) ; 

st=”specific  person  etfia  large  noisy  party.  The  majority  of 
noise  in  the  range"; 
strout ( s  t ) ; 

st="of  10Ez  to  4Z0Hz  is  caused  by  other  vessels  in  the  water, 
probably  at  a  much"; 
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strout ( st ) J 

st="larger  distance  and  thus  a  much  weaker  signal  is 
received . " I 
strout (st  ) ; 
color (0 ) ; 

vector(30. 0,40. 0,30. 0,30.0) > 
vector (30.0,40. 0,75. 0,40.0); 
vector(30. 0,45. 0,75. 0,45.0) ; 
block( 50.0, 45.0, 50.5, 62.0); 
return ; 

} 


pic32 (  )  { 

/*  This  display  discusses  the  problems  of 
large  distances  */ 

char  *st; 
color (1 ) ; 

block (0.0, 90. 0,100. 0,1 00.0) ; 
block(0. 0,0. 0,100. 0,28.0) J 
ocean( ) ; 
color (7 ) ; 

block( 15. 0,65. 0,13.0, 68.0 ) ; 
color(0)  ; 

vector(17. 0,66. 5, 27. 0,33.0) ; 

vec  tor(17. 0,66. 5, 80. 0,35.0); 

strtxy (24. 5,48. 0  )  J 

st="500  miles"; 

strout (st ) ; 

strt xy ( 50 .0,55.0 )  >* 

st="l200  miles"; 

strout( st ) ; 

color (2  ) ; 

strtxy(10. 0,98.0 ); 

st="type  ==>  Continue,  Noise,  Time,  Water(temp),  Lines(tau) 
,  Cult”; 
strout (st)  ; 
str txy(4 .0 ,28.5 ) ; 

st=  Cue  to  the  mission  of  this  system  it  is  necessary  to 
detect  any  vessel  at  a"; 
strout( st ) ; 

st=”very  large  distance.  tiThese  distances  can  range  up  over 
1200  miles  or  they  can"; 
strout (st ) ; 

st="be  relatively  short.  The  long  ranges  have  problems  of 
diffusion  and  large"; 
strout(st) ; 

st="separations  in  their  tau  lines.  While  using  two  arrays 
with  large  distance"; 
strout (st ) ; 

st="dif f er ences  causes  problems  in  time  of  arrival  of  the 
signal  at  the  various  arrays.'; 
strout (st ) ; 
return?  } 
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pic321()  {  /*  This  subroutine  discusses  tau  lines  #/ 

char  *st ; 
color ( 1 )  > 

block(0. 0,3. 0,130. 3, 103.0); 
color (4 ) ; 

bloc k( 0.0, 29. 0,100.0, 90.0 ) J 
color (6 ) ; 

vec tor (72. 0,68.0, 72.0,34.9 ) J 
vec tor (37. 6,51. 4,72. 0,51. 4) J 
vector(37.6,75.8,49.0,68.6)» 
vector (49. 0,68. 8, 61. 4, 62. 9) J 
vector(61.4,62.9,72.0,59.8); 
color (8 ) ; 

strtxy(71 .0,69.5) ; 


strtxy(73.0 ,61 .5  ) ; 
st="3  =>  500  tau  line”; 
strout ( s t )  J 
strtxy (73 .0,53.5 ) ; 
st=”l  =>  0  tau  line"; 
strout (s  t ) J 
strtxy(71 .0,36.5); 
st=” —  B ” ; 
strout ( s  t ) ; 

if  •  * 

s  t =  2  J 

strtxy(36.0,53.5); 
strout (st ) ; 
strtxy(36. 0,78.0) ; 
st=”4  ’; 
strout ( st ) ; 
strtxy (10. 0,98.0); 
color(2) ; 

st=”type  ==>  Continue,  Noise>t  Distance,  Tiire,  Water  ( temp ) , 
Problemsftau  line),  Quit'; 
strout (st ) ; 
strtxy(4.3,28.5) ; 

st="  Tau  lines  are  just  measurement  lines  distinguishing 
the  time  arrival  of  the"; 
strout ( st ) ; 

st=”signal  at  two  dif f erentt>arrays  .  If  arrays  A  and  B  are 
1000  miles  apart  then  a”; 
strout (st ) ; 

st="signal  produced  exactly  between  A  and  B  (point  1)  would 
arrive  at  both  arrays  at”; 
strout ( s  t ) ; 

st=”exactly  the  same  time.  Additionally  any  signal  produced 
on  line  1-2  would  arrive”; 
strout (st ) ; 

st=’at  both  arrays  simultaneously.  In  the  same  manner,  any 
signal  produced  on  line  3-4”; 
strout (st ) ; 
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st="arrive  at  the  arrays  with  the  saire  arrount  of  tire  delay 
in  all  ca ses  . ” ; 
strout  ( st ) ; 
return ; 

} 

pic3211()  { 

/#  This  subroutine  discusses  the  problems  associated 
with  the  tau  lines  and  large  distances  */ 

char  *stJ 
color (1 ) ; 

block(0. 0,0. 0,100. 0,100.0); 
color (4 )  5 

block (0.0,29.0, 100.0,90.3)  ,* 
color (6 ) ; 

vector (72. 0,68. 0,7 2.0  ,34.9)  ,* 
vector(37.6,51.4,72.0,51.4) J 
vector (27. 6, 75. 8, 49.0, 68.8); 
vector(49.0,68.8,61.4,62.9); 
vector (61.4,62.9,72.0,59.8); 
vector(37.6,53.7,72.0,53.1); 
vec t  or( 37 . 6 , 83. 3 ,49 .0  ,74 . 0 ) 5 
vector (49.0,74. 0,60.8,65.6) J 
vec tor (60. 8, 65. 8, 72.0, 61 .7) ; 
color(8) ; 

strtxy (71 . 0,69.5  ) ; 

st=” —  a" ; 

strout (st ) ; 

s t rtxy (73 . 0 , 61 . 5 ) ; 

st= *3  =>  500  tau  line”; 

strout ( st ) ; 

st rt xy (73 .0 , 53. 5  ) ; 

st="l  =>  0  tau  line"; 

strout ( st ) ; 

strtxy (71 .0,36. 5  ) ; 

s  t  =" —  b"; 

strout ( st ) ; 

•I  •• 

st=  2  ; 

strtxy(36.0,53.5); 
strout ( st ) ; 
strtxy (36.0,78. 0) ; 
st="4  ‘ ; 
strout (st ); 

s t  ="225  miles - >"; 

strtxv(20. 0,81.0); 
strout ( st ) ; 

st="65  miles  - >”; 

strtxy (20 .0 , 54. 0 ) ; 
strout (st ) ; 
strtxy (10. 0,98. 0 ) ; 
color (2 ) ; 

st="type  ==>  Continue,  Noise,  Distance,  Time,  Water( temp )  ” ; 
strout (st ) ; 
strtxy (4 .0 , 28 .5 ) ; 
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st  =  Since  the  tau  lines  are  hyperbolic  in  shape,  another 
problem  arises  in  that  the’? 
strout  ( s  t ) ; 

st="spacing  between  any  two  lines  does  not  remain  constant. 

The  lines  at  points  1  and  3"» 
strout ( s  t ) ; 

st="are  each  spaced  at  50  miles  apart.  The  lines  1-2  spread 
apart  to  65  miles  by  the"; 
strout ( st ) ; 

st="time  they  reach  point  2,  whereas  the  lines  3-4  spread 
apart  to  225  miles  by  the  time”; 
strout (st ) J 

st="they  reach  point  4.  This  variance  can  cause  drastic 
differences  in  the  accuracy"; 
strout (st ) ; 

st="of  the  data  received,  depending  on  it's  position 
relative  to  the  arrays."; 
strout ( st ) ; 
return ; 

} 

pic33( )  { 

/*  This  subroutine  discusses  the  problems  of  time 
delay  and  how  the  comouter  solves  them  */ 

char  *st; 
color (1 ) ; 

bl ock(0. 0,90. 0,100. 0, 100.0 ) ; 
block (0.0, 0.0, 100. 0,28.0) J 
ocean ( ) ; 
color(0 ) ; 

vector (17. 0,66. 5,27.0,33.0) ; 

vector (17.0,66.5,80 .0 ,35.0) ; 

strtxjr(  16 .0 , 70.0); 

st="A  ’ ; 

stroutfst ) ; 

strtxy (24.5 ,48.0  )  i 

st="500  miles”; 

strout (st ) ; 

strtxy( 50 .0 , 55.0  )  > 

st="l200  miles"? 

strout ( st ) ; 

color(2 ); 

strtxy (10.0,98.0) ; 

st="type  ==>  Continue,  Noise,  Distance,  Vater(temp),  Quit"; 
strout ( s  t ) ; 
strtxy(4.0 ,28.5) J 

st=  Since  sound  travelsMat  2989  Kts.  (3400  miles/hour) 
through  the  water  you"; 
strout (s  t  j ; 

st="can  approximate  it  as  travelling  at  1  mile  per  second. 

At  this  speed  it  would  take”; 
strout (st ) ; 

st=  a  noise  particle  1200  sec.  or  20  minutes  to  travel  from 
point  A  to  array  2.  But"; 
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strout (st ); 

st=”it  would  only  take  8  minutes  for  it  to  travel  to  array 
3,  thus  arriving  12  minutes"; 
strout (st )  J 

st=”hefore  it  would  arrive  at  array  2.  This  difference  must 
he  accounted  for  hy"; 
strout (st)J 

st="the  algorithum  in  the  computer.  ; 

strout ( s  t )  > 

return; 

} 

pic34(  )  { 

/#  This  subroutine  demonstrates  how  the  speed  of 
sound  travels  at  different  speed  depending  on 
temperature,  salinity,  and  depth  */ 

char  *st ; 
color(l ) ; 

block (0.0, 0.0, 100. 0,100.0)  ; 
color (4) ; 

bl ock( 0.0, 29. 0,100.0, 90.0 ) ; 
color( 6 ) ; 

vector (41.0,76.0,63.0,76.0); 
vec tor (41 .0,76.0,41 .0  ,36 .0) ; 
strtxy (34.0*77.8 )  J 
st="  0  —  ; 
strout(st) ; 
s  t=" 1000  — ”; 

strtxy (34. 3 , 70 . 3  ) ; 
strout (st ) ; 
st="2000  — " ; 
strtxy (34.3 ,62. 0  ) ; 
strout(st) ; 
st="3000 

strtxy(34.3, 54. 3  ) ; 
strout (st ) ; 
st="4000  — " ; 
strtxy (34. 0 ,46. 0 ) ; 
strout (st ) ; 
st="5000  — 
strtxy(34.0,38.3) ; 
strout (st ) ; 
strtxy(39.0 ,81 .0 ) ; 

St="l475  1500  1525"; 

strout (st ) ; 

st="  1  1  1"; 

strtxy(38.5,78.0); 

strout ( s t ) ; 

st="Velocity  (yards/sec)"; 
strtxy(40.0,87. 3) ; 
strout (s  t ) ; 
st="  Depth"; 
strtxy (24.3,66.3  ) ; 
strout (st ) ; 
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st=" (yards  )" * 
strout (st ) ; 
color ( 8 ) ; 

vector (53. 0,76. 0,54.4, 74.2)  ; 
vector (54. 4, 74. 2, 54. 4, 73.0) ? 
vec tor (54. 4, 73. 0,46. 6, 70.2 ) ; 
vec tor (46. 6, 70. 2,44. 2, 68.1 ) J 
vector(44.2,68.1,44.0,66.0); 
vec tor (44. 0,66. 0,44.3, 64.0); 
vector (44.3,64. 0, 45 .8 ,60.0) > 
vector(45. 8, 60. 0,58. 0,36.0); 
color(2 ) ; 

strtxy(10.0,98. 0 ) ; 

st="type  ==>  Continue,  Noise,  Time,  Distance,  Quit”; 
strout ( st ) ; 
strtxy (4.0 ,28.5)  ; 

st="The  velocity  of  sound  changes  as  the  water  temperature, 
salinity,  and  depth  vary."; 
strout (st ) ; 

st="ln  the  first  300  yards  from  the  surface  velocity  is 
mainly  altered  by  temperature  and"; 


strout (st ) ; 

st="salinity ,  after  which  depth  (pressure) 
factor.  As  temperature  and  salinity"; 
strout (st ) ; 

st="rise  the  velocity  of  sound  increases. 

increases  due  to  the  depth,"; 
strout (st ) ; 

st="the  velocity  of  sound  also  increases. 

are  not  severe  but  when  the"; 
strout (st ) ; 

st="measurement s  are  in>ttecths  of  seconds, 
cause  inaccuracies.”; 


is  the  main 


As  the  pressure 


These  variances 


any  change  will 


strout(st) 

return; 


} 


pic4()  { 

/*  This  subroutine  shows  in  general  what  all  the 
problems  are  in  the  environment  that  must  be 
overcome  by  the  system  */ 

char  -st ; 
color (1 ) ; 

block (0.0, 90.0, 100.0,100.0)  ; 
block( 0.0, 0.0, 100. 0,28.0) ; 
ocean ( ) ; 
color(7); 

block(l5.0 ,65.0,18.0,68.0) ; 
color (0 ) ; 

vec tor (17. 0,66. 5,27.0, 33.0)  ; 
vector(l7. 0,66. 5, 80. 0,35.0); 
strtxy (24. 5,48. 0  )  J 
st="500  miles"; 
strout( st ) ; 
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st  =" 1200  miles’’ ; 
strtxy (50. 0,55.0); 
strout (st ) ; 
color (2 ) ; 

strtxy (10. 0,98.0); 

st="type  ==>  Continue,  Noise,  Distance,  Time,  Water  ( temp  )  ”  »* 
strout (st ) ; 
strtxy (4.0 ,28 .5  )  ; 

st=”  There  are  several  problems  in  the  system  that  are 
difficult  to  overcome:”; 
strout(st); 

st=”’l)  The  distances  are  quite  large,  on  the  order  of  1200”; 
strout ( st ) > 

st="2)  Large  differences  in  distances  from  area  to  arrays 
cause  significant  time  delays.’’; 
strout (st ) J 

st="3)  Differences  in  water  temperature  and  salinity  cause 
the  sounds  to  travel  at"; 
strout (st); 

st=”  various  speeds."; 
strout(st); 

st=”4)  Other  noises  are  always  present  in  the  ocean.’’; 
strout ( st ) ; 
return ; 

} 

pic5 (  )  { 

/*  This  subroutine  shows  how  the  large  area  is 
broken  up  into  small  regions  -/ 

char  -st ; 
color(l ) ; 

b lock( 0.0, 30. 0,100. 0, 100.0 ) ; 
block (3. 3, 0.0, 100. 0,28.0) ; 
ocean ( ) ; 
color(2) ; 

strtxy (10.0,98. 0) ; 
st=”type  ==>  Continue,  Quit"; 
strout ( s  t )  J 
Strtxy (4.0 ,28.5 ) ; 

st="  These  large  distances  between  arrays  allow  the  system 
to  cover"; 
strout (st ) J 

st=  a  large  area  of  ocean,  let's  say  400  miles  by  433  miles 
or  roughly"; 
strout  (st); 

st="the  size  of  Montana.  This  area  can  be  further  subdivided 
into  100  sectors  ,  ”; 
strout (st )  J 

st=”  each  40  miles  square  to  make  the  tracking  easier.  Fach 
of  these  sectors"; 
strout (st )  J 

st="can  presently  be  covered  by  XXX  correlations  per  hour.’’; 
strout ( s  t ) ; 
disect ( ) ; 
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color ( 13  )  J 

block (19. 6, 64. 3 ,21.0, 66.0 ) ; 

c  o  1  o  r  ( 0  ) » 

st="400  miles"; 

strtxy(14. 0,84.0) » 

strout (st ) ; 

strtxy(27. 0,72.0) ; 

strout (st )  t 

return  > 

} 

disect()  {  /*  This  subroutine  disects  the  region 

float  xl,x2,yl,y2J 

color(0) > 

x2=26  .0  > 

yl=60.0J 

y2=80 .0  j 

for  (xl=10.0;xl<=2?.0;xl=xl+1.6) 
vector(xl,yl,xl,y2); 
xl=10.0J 

for  (yl=60 .0; yl<=81 .0  ?  yl=yl+2.0 ) 
vector(xl ,yl ,x2,yl) ; 
return  ; 

}  /*  End  of  segment  1  */ 
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/*##################£###########£££#######£#########£####### 

#  This  is  the  third  section  of  the  tutorial  and  it  is 

#  set  up  in  the  same  manner  as  the  other  sections.  It  con 

#  tinues  the  presentation  of  displays  and  allows  the  user 

#  to  see  the  overall  system  and  some  of  its  fine  points. 

#  !*any  of  the  parts  that  were  generated  in  the  first  part 

#  have  to  be  redone  in  this  section  due  to  the  forking 

#  technique  used  to  link  compiled  programs.  # 

##########################################################*/ 


main()  {  /*  section  three  of  the  tutorial  */ 

float  x,y,z; 

char  cc  ,cd  ,ce,*st; 

int  j,w; 

ramtek();  /*  initializes  the  Ramtek  system  */ 
writon(l ); 

colortable ( ) J  /#  establishes  a  color  table  */ 
colort (10 ) ; 

pic5()»  /*  area  breakdown  disolay  */ 

w=0; 

cc-'z 

while  (cc=='z')  {  /*  while  #1  */ 

cc=retchar ( ) ; 

switch(cc)  {  /*  switch  #1  */ 

case  'c':  /*  Continue  */ 

pic6()J  /*  correlation  display  */ 
break; 

case  'r':  /*  Return  */ 

pstop  ( ) ; 

pic6();  /*  correlation  display  */ 

cc= '  z  'i 
break ; 
def aul t : 
cc='z '; 

}  /*  end  switch  #1  #/ 

}  /#  end  while  #1  */ 

cc='z '; 

while  (Cc=='z')  {  /*  while  #2  */ 

cc=retchar ( ) ; 

switch(cc)  {  /*  switch  #2  */ 


case  'h':  /*  hydrophone  display  */ 

pic61 ( ) ; 
cd='z'; 


while  (cd=='z  ' ) 

{ 

/*  while  #3  * / 

cd=retchar( ) ; 
switch(cd)  { 

/*  switch  #3  */ 

case  ' a 

/* 

array  pointing  display  */ 

pic611 ( ) ; 
cc='z ' ; 

break; 
case  'e': 

/* 

ellipse  display  */ 
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pic62(  ),* 
ce='z'; 

while  (ce=='z')  {  /*  while  #4  #/ 

ce=retchar ( ) ; 

switch(ce)  {  /#  switch  #4  */ 

case  'c':  /*  Continue  */ 

if  (w==l) 

/*  If  combined  ellipses  display 
has  been  presented,  skip  and 
display  pic8  */ 
pic8( ); 
else 

pic?( ) ; 
break ; 

case  'e':  /*  combined  ellipses  display  */ 

pic621(  ),* 
w=i; 
cc='z'; 
break; 

case  'h':  /*  hydrophone  display  #/ 

pi c6l (  ) ; 
cd='z'j 
break; 

case  'r':  /*  Return  */ 

pstop( ) ; 

oic6i( ) ;  /*  hydrophone  disulay  */ 

cd='z  'J 


} 


break; 
def aul t : 
ce='z ' ; 

}  /*  end  switch  #4  #/ 

}  /#  end  while  #4  */ 

cc='z '; 
break; 

case  'c':  /*  Continue  */ 

pic7( ) ; 
break; 

case  'r':  /*  Return  */ 

pstop( ); 

pic61( ) ;  /*  hydrophone  disulay  */ 

cd='z'; 


break; 
def aul t: 
cd='z'; 

}  /*  end  switch  #3  */ 

/*  end  while  #3  */ 


break; 

case  ' e /*  ellipse  display  */ 
pic62 ( ) ; 
cd  =  'z ' ; 

while  (cd=='z')  {  /*  while  #5  */ 

cd=retchar( ) ; 

switch(cd)  {  /*  switch  #5  */ 

case  'e':  /*  combined  elipses  display  */ 
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pic621 ( ) ; 
w=i;  , 
cc='z  » 
break; 

case  'h':  /*  hydrophone  display  */ 

pic6i(); 
ce=/z'l 

while(ce=='z ' )  {  /*  while  #6  */ 

ce=retchar( ) ; 

switch(ce)  {  /*  switch  #6  */ 

case  'c':  /*  Continue  */ 

if  (w==l) 
pic8(  ) ; 
else 

pi c? ( ) ; 
break; 

case  'a':  /*  array  pointing  display  */ 

picsii ( ) ; 
cc='z ' ; 
break? 

case  'e':  /*  ellipse  display  */ 

pic62( ) ; 
cd='z'J 
break ; 

case  't':  /*  Return  */ 

pst  op(  ) ; 

pic62();  /*  ellipse  display  */ 

cd='z'j 
break ; 
default : 
ce=  z  ; 

}  /*  end  of  switch  #6  */ 

}  /*  end  of  while  #6  */ 

break; 

case  'c':  /*  Continue  */ 

if  (w==l) 
pi c8 ( ) ; 
else 

pic7(); 

break; 

case  'r':  /*  Return  */ 

pstop( ) ; 

pic62( ) ;  /*  ellipse  display  */ 

cd«'z  '; 

break; 

def aul t : 
cd='z'J 

}  /#  end  switch  #5  */ 

}  /*  end  while  #5  */ 

break; 

case  'c'i  /*  Continue  */ 
if  (w==l) 
pic8( ) ; 
else 
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pic?( ) ; 
break; 

case  'r':  /*  Return  */ 

pstop ( ) ; 

nic6();  /*  correlation  display  #/ 

cc=  z  ; 
break; 
defaul t : 
cc  =  'z '; 

}  /*  end  switch  #2  #/ 

}  /*  end  while  #2  */ 

if  (w==0)  {  /*  If  stmt  #1  */ 

cc='z' i 

while  (cc=='z')  {  /*  while  #7  #/ 

cc=retchar ( ) ; 

switch(cc)  {  /*  switch  #7  */ 

case  'm':  /*  draws  more  ellipses  #/ 

pi c7a( ) ; 
color ( 1 ) ; 

block( 0.0 ,90. 0,100.0, 100.0 ) ; 
color( 2 ) ; 

strtxy( 10.0,98.0) ; 

st=" type  ==>  Continue,  Return  ; 

strout ( st ) ; 

cc='z  '; 

break; 

case  'c':  /*  Continue  */ 

pic8 ( ) ; 
break; 

case  'r':  /*  Return  */ 

pstop( ) ; 

pic7( ) ;  /*  combined  ellipses  display  */ 

cc=  'z ' ; 
break; 
defaul t: 
cc='z '; 

}  /*  end  switch  #7  */ 

}  /*  end  while  #7  */ 

}  /*  end  If  stmt  #1  */ 

else 
w=0 ; 
return ; 

}  /*  end  main  section  of  segment  2  */ 


pstopO  { 
char  *st .^sp, stop; 
sp="  "; 
color (11 ) ; 

block(0.0 ,0.0, 100.0,100.0) ; 
color(5) ; 

strtiy(45. 0,80.0) ; 
st="D0  YOU’  ; 
strout(st);  strout(sp); 
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st="RSALLY"; 

strout(st);  strout(sp); 

st-"WANT  TO"; 

strout(st);  strout(so); 

st=”  RETURN  TO  ; 

strout(”THE  MAIN’’);  strout(sp); 

st rout ("PROGRAM?”  ) ; 

st  =  (y  /  n)  ; 

st  rout ( st ) ; 

st  op=retchar  ( ) ; 

If  (stop=='y')  { 

color(0 ) ; 

block (0.0, 0.0, 100.0, 100.0); 

exit ( ) ; 

} 

return; 

} 


pic61 (  )  {  /*  Hydrophone  display  */ 

char  #st; 
float  xi; 
color (1 ) ; 

block (0.0, 0.0,100. 0,100.0); 
color (7 ) ; 

block( 0.0, 29. 0,100. 0,90.0) ; 
color (2 ) ; 

strtxy(10.0,96.0); 

st="type  ==>  Continue,  Ellipses,  Array  (pointing),  Ouit  . 
strout (st ) ; 
strtxy(4. 0,27.0) ; 

st  =  "  The  system  for  collecting  noise  data  is  an  array  of 
hydrophones,  roughly  2000  feet"; 
strout(st ); 

st=”long  containing  60  passive  sonar  devices.  If  no 
adjusting  (pointing)  of  the  array”; 
strout (st ) ; 

st="is  done,  then  only  noise  waves  coming  in  at  the  array 
directly  abeam  of  the  array”; 
strout (st ) ; 

st=”will  be  detected.  The  noise  arrives  at  the  array  in 
the  same  manner  that  a  wave”; 
strout (st ) ; 

st=”crashes  on  the  beach,  some  come  in  straight  and  others 
hit  at  an  angle"; 
strout (st ) ; 
color(12) ; 

block (19. 0,37. 0,61.0, 39.0 ) j 
color(0) ; 

f or(xl=20.0; xl<30.5;xl=xl+l .0) 
block(xl,37.9,xl+0.2,38.l); 
st rtxy( 15. 0,80.0) ; 
strout("  Noise’’); 


124 


st rout ("Va ve"  ); 
strtxy (54.0 ,70 .0  ) ; 
strout("Beam  Pattern”); 
vector (22. 0,76.0, 78. 0,76.0); 
vector (22. 0,52. 0,78.0 ,52.0)? 
strtxy(42.0,35. 5) ; 
s trout ( " HYDROPECNE  ARRAY”); 
arrows ( ) ; 
color (13 ) ; 

vector( 50. 0,39. 0,48. 0,72.0) ; 
vector(50. 0,39. 0,52. 0,72.0) ; 
vec tor (4e. 0,72. 0,48. 2, 77.0) ; 
vec tor ( 48 .2 ,77.0 , 49 .0 ,79  .0 ) ; 
vec tor (49. 0,79. 0,51 .0,79.0) ; 
vector (51.0,79. 0,51. 8, 77.0); 
vector(51. 8, 77. 0,52. 0,72.0); 
return; 

} 

arrows()  { 
color (0 ) > 

strtxy (29.0 ,80.0 ) ; 

strout("V  V  V  V  ); 

strtxy (29.0,56.0 ) ; 

strout (" V  V  V  V”); 

vector(29.5,84.0,29.5,77.0); 

vector (38.2,84.0,38.2,77.0) ; 

vect or (59.0, 84. 0,59.0, 77.0 ) ; 

vector(69.9,84.0,69.9,77.0); 

vector(29.5,60.0,29.5,53.0) J 

vector (38.2,60.0,38.2 ,53.0); 

vector( 59. 0,60. 0,59. 0,53.0); 

vector(69.9,60.0,69.9,53.0)  J 

return; 

} 

pic611  ( )  { 

char  *st ; 
float  xl ; 
color (1 ) ; 

hi ock(0. 0,0. 0,1 00. 0,100.0); 
color (7 ) ; 

hlock(0. 0,29. 0,100.0,90.0); 
color (2 ) ; 

strtxy(10. 0,98.0); 

st="type  ==>  Continue,  Hydrophones,  Ellipses,  Quit"; 
strout ( s  t ) ; 
strtxy(4. 0,27.0); 

strout ("  In  order  to  cover  atlarge  area  of  water  with  a 
single  array,  it  must  he"); 

strout ( "capable  of  directing  its  beam  in  several  directions. 
This  is  accomplished”); 

strout("hy  using  a  time  delay  between  receiving  a  signal  at 
various  hydrophones."); 
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strout(  There  can  be  roughly  as  many  beam  patterns  as 
„are  hydrophones  and  )» 

strout(  the  beam  patterns  generally  overlap  so  as  to 
the  enti re  area  ) ; 
color (12); 

block (39.0  ,37.0,61 .0,39.0) J 
color (0 ) ; 

f or ( xl=40 . 0J  xl<60. 5;xl=xl+l .0 ) 
block (xl ,37.9,11+0.2,38.1) ; 
vector(50. 0,39. 0,48. 0,72.0); 
vector(50. 0,39. 0,52. 0,72.0) ; 
vector (48. 0,72. 0,46.2, 77.0); 
vect or( 48. 2, 77.0, 49.0,79.0 ) ; 
vector(49.0,79.0,50.0,79.3); 
vector(50.0,79.3,51.0,79.0); 
vect or ( 51 .0 ,79.0 ,51 .8 ,77 .0 ) ; 
vect or (51. 8, 77. 0,52. 0,72.0) J 

/*  first  beam  left  */ 
vector(50.0,39.0,41.7,71.2); 
vect or (41. 7, 71. 2, 41. 0,75.0) ; 
vec tor (41. 0,75. 0,41. 8,77.5) ; 
vec tor (41 .8,77.5,43.2 ,77.9) ; 
vec tor (43. 2, 77. 9, 44.6, 76.2 ) J 
vect or (44. 6, 76.2, 45.7,72.4 ) ; 
vector(45.7,72.4,50.0,39.0); 

/*  second  beam  left  */ 
color(2 ) ; 

vect or (50. 0,39. 0,44. 9 ,72.2) ; 
vector (44. 8, 72. 2, 44. 2, 76. 0) ; 
vec tor (44.2, 76.0,45. 5, 78.1 ) ; 
vec tor (45. 5, 78.1 ,46.0 ,78.4) 5 
vect or (46. 0,78. 4, 47.0, 78.2 ) ; 
vector (47.0,78.2,46.2 ,76.0) ; 
vect or (48. 2,76. 0,48. 7, 72.5 ) J 
vector(48.7,72.5,50.0,39.0); 

/*  second  beam  right  #/ 
vec tor (50. 0,39. 0,51. 5 ,72.5) ; 
vector (51.5,72.5,52.0,76.2) ; 
vec tor (52.0,76. 2, 53. 2 ,78.4) ; 
vec tor (53. 2, 78. 4,55.5, 78.0 ) ; 
vector (55. 5, 78. 0,56.2,75.0) J 
vector (56.2 , 75.0, 55 .8 ,72 .3 ) ; 
vector(55.8,72.3,50.0,39.0); 

/*  first  beam  right  */ 
color (0 ) ; 

vec tor (50. 0,39. 0,54. 8, 72.2 ) ; 
vector (54.8,72.2,56.0,76.0) ; 
vec tor (56. 0,76.0, 57.4,77.9 ) J 
vec tor (57. 4, 77. 9, 59. 2, 77.3 ) ; 
vec tor (59. 2, 77. 3, 59. 6, 75.0) J 
vector (59. 6, 75. 0,58. 7, 71. 5) ; 
vec tor( 58. 7, 71.5,50. 0,39.0); 
return; 

} 


there 

cover 


126 


colortable ( ) 
int  a  [16]  j 


{  /*  Establishes  a  new  color  table 


a  [0]  = 

a  [11  = 

a  [2]  = 
a  [3]  = 
a  [4]  = 
a  [5]  = 
a  [6]  = 
a 
a 
a 
a 
a 
a 
a 


71 

81 

[91 

[101 

111 

[121 

[131 


triple(0,0,0)  > 
tripl e(15 , 0,0); 
triple(0,15,0) > 
triple(0,0,15) ; 
triple( 15, 5,0) ; 
tr iple(2 ,0 ,6 ) ; 
triple(0,10,0) J 
trinle(2,6,10) ; 
triplet  6 ,10 ,2 ) ; 
triplet  10, 2,6 ) ; 

=  triple  (13,5,2); 
=  triplet  5,2,13) ; 

=  triple  (2,13,5); 
=  triplet  15,0,15); 


} 


a[l4l  =  triplet  10,4,4); 

[151  =  triplet  15,15, 15) ; 
clrtbl ( 10 ,a ) ; 
return; 


/*  Draws  the  ocean  */ 


ocean ( )  { 

char  *st; 
color (4 ) ; 

block (0.0, 29. 0,1 00. 0,90.0) ; 
land (  ) ; 
arrays ( ) ; 
color(6 ) ; 

b lock(10. 0,60. 0,26.0, 80.0 ) ; 
return  J 
} 


arrayst)  [  /*  Draws  the  arrays  */ 

color (7 ) ; 

blockt 79.0,84. 0,80. 0,79.0) ; 
blockt 25. 0,32. 0,29. 0,33.0) ; 
vec tort  79. 0,33. 9,82.0 ,37.1 ) ; 
vec tor (79. 5, 33. 8, 82. 5, 37.2 ) ; 
vec tor (79. 7, 33. 7 ,82.7 ,37.3); 
vec tor (80. 0,33. 6,83.0, 37.4) ; 
v ec tor (79. 2,33. 5, 82. 2, 37.5 ) ; 
vec tor (79. 3, 33. 4, 82.3,37.6 ) ; 
return ; 

} 


land(  )  {  /#  Draws  the  land  */ 

color (5 ) ; 

block (84. 0,50. 0,100. 0,90.0) ; 
block( 95. 0,30. 0,100. 0,55.0); 


*/ 
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block (89.0 ,40.0,96.0,51 .0) ; 
block (92. 0,33.0,96. 0,41.0) ; 
vec  t  or ( 89. 0,40.0,84.0,50.0) » 
vector (89. 0,40. 0,84. 2, 50.0); 
vector(89. 0,40.0, 84. 4, 50.0)> 
vector(69.0,40.0,84.6,50.0) ; 
vector( 84. 0,50. 0,82. 0,63.0); 
vector( 84. 0,50. 0,82. 2,63.0); 
vector(84.0,50.0,82.4,63.0) ; 
vector(84.0,50.0,82.6,63.0) ; 
vector(82.0,67.0,83.0,73.5); 
vec tor (82. 1,67. 0,83.0, 73.5 ) ; 
vec tor (82. 2, 67. 0,83.0, 73.5 ) ; 
vec tor (82. 3, 67. 0,83.0 ,73.5) J 
vec  tor ( 83.0,84.0,31.0,90.0); 
vector (83.0,84.0,81 .2,90.0) ; 
vec tor (83. 0,34. 0,81. 4, 90.0) J 
vector( 83. 0,84. 0,81. 6,93.0); 
vector( 97. 0,29. 0,95. 0,30.0) ; 
vector( 95. 0,30. 0,92. 0,33.0); 
vec  tor ( 92 . 0 ,33. 0 ,89 . 0 , 40 . 0 ) ; 
vec tor (92.0, 33.0, 89. 2, 40.0); 
vector(92.0,33.0,89.4,40.0) J 
vector(92.0,33.0,89.6,40.0); 
block (82. 8, 78. 0,83.0, 80.0 ) J 
block (88. 5, 40. 0,90. 0,43.0); 
b lock (82. 6, 57. 0,84.0, 60.0 ) ; 
vector( 92. 0,33. 0,89. 6,40.0) ; 
b lock (97. 0,29. 0,100. 0,31. 0) ; 
block (86 .0 ,45.0 ,90 .0,51 .0 )  > 
block (83. 0,58. 0,66. 0,90.0)  J 
block (96.0, 29.0, 98. 0,31.0); 
block (95. 5, 29. 5, 98. 0,31.0)  ; 
block (96. 5, 29. 0,98. 0,30.0) ; 
vector (97. 1,29. 0,95. 0,30.2); 
b lock (93.5 ,31 .2,96.0,34.0) ; 
block (92 .7,32.0,98 .0,34.0) ; 
b lock (90. 0 ,36.6,94.0,41  .0) ; 
block (91. 0,34. 4, 94. 0,41 .0) ; 
b lock (87. 2, 42. 2,90.0,46.0 ) ; 
block (84. 8, 47. 2 ,88.0,51 .0) ; 
b lock (82. 0,62. 7, 85. 0,67.0  )  ; 
block (82. 0,88. 0,85.0, 90.0); 
b lock (82. 5, 66.0, 84.0,71.0  ) ; 
block (82. 5, 66. 0,64. 0,89.0) ; 
b loc k(83.5, 53. 0,85.0, 60.0 ) ; 
block (32. 5  ,60  .0  ,84.0,65  .0)  J 
return ; 

} 


pic6  (  )  { 

/#  This  subroutine  shows  how  two  arrays  cress  over 
to  cover  an  area  */ 

char  *st ; 
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color(l ) ; 

block (0.0 ,90.0, 100.0, 100.0) ; 
block (0. 0,0.0,100.0 r 28.0); 
ocean( ) ; 
color (2 ) ; 

strtxy (10 .0 ,98.0 ) ; 

st="type  ==>  Continue,  Hydrophones,  Ellipsoids,  Quit"; 
strout(st)  > 
strtxy(4.0 ,28.5) ; 

st="  A  correlation  takes  place  when  two  different  arrays 
cover  the  same  area  of"; 
st rout  (s  t )  »* 

st=”ocean  (sector  K).  An  array  picks  up  the  frequency 
changes  made  from  the  direction"; 
strout ( st ) ; 

st=”in  which  the  hydrophone  array>fis  pointing  and  then  it 
is  compared  tc  the  frequencies”; 
strout (st ) ; 

st="obtained  by  another  hydrophone  array.  If  there  is  a 
correlation  of  sounds,  then”; 
strout ( st ) ; 

st="a  possible  contact  is  made  somewhere  within  an  ellip¬ 
soid  shaped  area  near  that  point."; 
strout (s  t ) ; 
color (13 )  J 

block (19. 5, 64. 3, 21 .0,66.0) ; 
color (0) ; 

vector (27. 0,33. 0,16. 0,83.0); 
vector (27. 0,33. 0,19.0, 80.0 ) ; 
vec tor (80. 0,34.1 ,10.0,72.3) ; 
vect or (80. 0,34. 1 , 10.0,68.6) ; 
strtx^(22. 0,70.0 ) ; 
st="K  ; 
strout  (st )  *> 
return; 

} 

pic62 ( )  { 

/*  This  subroutine  shows  how  the  tau  line  intersection 
will  determine  the  shape  of  the  ellipses  */ 

char  *st; 
color (1 ) ; 

blOCk(0. 0,0. 0,100. 0,100.0) ; 

color (4 ) ; 

bl ock( 0.0, 29. 0,1 00.0, 90.0 ) J 

color(l )  > 

b lock( 49. 0,29. 0,51.0, 90.0) ; 
col  or (7 ) ; 

vector( 5 .0  ,80.0 ,45.0,35 .0) ; 
vector(5. 0,35. 0,45. 0,80.0); 
vec tor( 65. 0,80. 0,80. 0,35.0); 
vec tor (80.0, 80. 0,65.0, 35. 0) ; 
color (6 ) ; 

vec tor (77. 0,70. 0,77.0,45.0) ; 
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vector (?7. 0,45. 0,76. 0,42.0) J 
vec  tor (76 . 0 ,42 .0 ,73 . 0  ,41 . 0 )  ? 
vector  (73. 0,41. 0,69. 8 ,42.1) J 
vec tor (69. 8, 42. 1,68. 3, 48.0)  ? 
vector (68.3,48.0,68.3,70.0); 
vec tor (68. 3, 70. 0,70. 2,73. 2) ; 
vector(70.2,73.2,73.2,74.4); 
vec  tor( 73. 2, 74. 4, 75. 7, 73.0) ; 
vector (75.7, 73. 0,77. 0,70.0); 
vector(30.9,64.0,33.0,60.0) ; 
vector(33.0,60.0,32.8,54.0) ; 
vec tor (32. 8, 54. 0,31 .0,51.0)? 
vector(31.0,51.0,27.5,48.5); 
vec tor (27. 5, 48. 5, 22. 0,49.0) ? 
vector(22.0,49.0,19.3 ,51 .2) J 
vector (19.3,51.2, 17.3,55.3) ; 
vector (17. 3,55.3, 17. 3, 60.0 ) ; 
vector(l7.3,60.0,19.3,64.0); 
vector(19.3,64.0,23.2,66.2); 
vector(23.2,66.2,28.0,66.1); 
vec tor (23. 0,66.1 ,30.9,64.0) ; 
color (2  ) ; 

strtxy (19 .0 ,85. 0 ) ; 

St=”DIAGRAM  A  DIAGRAM  3"; 

strout(st) ; 
strtxy(10. 0,98.0) ; 

st=”type  Continue,  Ellipses  combined.  Hydrophones,  Quit”; 
strout (st) ; 
strtxy(4 .0 ,28.5 ) ? 

st=  When  a  correlation  is  made  from  data  received  at  two 
arrays,  then  an  area  of  probable”; 
strout (st ) ; 

st=”contact  is  determined.  The  probability  that  the  noise 
came  from  a  specific  region  of  ”; 
strout ( s  t ) ; 

st=”water  generally  forms  an  ellipse^  as  ir.  diagrams  A  and 
B.  When  the  tau  lines  are  almost'  ? 
strout ( s  t ) J 

st =”perpendicular  the  the  elliose  approximates  a  circle 
which  will  have  a  small  area  of"; 
strout (st ) ; 

st="probabili ty ,  however  many  times  the  tau  lines  meet  at 
relatively  small  angles”? 
strout ( st ) ; 

st="and  cause  the  area  to  become  a  very  long  ellipse 
(causing  high  uncertainty).  "; 
strout ( s  t ) ; 
return  ? 

} 

pic621 (  )  { 

/*  This  subroutine  shows  how  ellipses  are  combined  */ 
char  *st? 
pic7 (  ) ; 
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pic?a(  ) ; 
color (1 )  ; 

bl ock ( 0 . 0 , 0 . 0 , 100 . 0 , 1 00 . 0 ) > 
strtxy (4 .0 ,97 .0  ) ; 

st=”type  ==>  Continue,  Hydrophones,  Ellipsoids,  Quit  » 
strout(st) ; 

block (0.0, 0.0, 100. 0,7.0) ; 
return  5 
} 


pic7(  )  { 

/*  This  subroutine  shows  how  ellipses  are  combined  */ 
char  *stJ 
color (1 ) ; 

b lock (0.0, 0.0,1 03.0,1 00.0 ) ; 
color (4 ) ; 

block( 0.0, 29. 0,100. 0,90.0) 5 
c  o  1  o  r  ( 0 ) ; 

vec tor (59. 7,78. 5,62. 8 ,79.6) ; 
vector( 62. 8, 79. 6,66.0,80.5)? 
vector (66. 0,80. 5, 70. 2,73.1); 
vec tor (70. 2, 78. 1,72.8 ,74.0) ? 
vec tor (72. 8, 74. 0,72. 2, 68. 2) ; 
vec tor (72. 2, 66. 2, 69.0, 63.3 ) J 
vector (69.0,63.3,46.0,47.5) ; 
vec tor (46. 0,47. 5, 41 .0,45.2); 
vector(41.0,45.2,36.4,44.2) ; 
vec tor (36. 4, 44. 2, 33. 2,46.2); 
vector (33.2,46. 2, 31.5, 50.0 ) J 
vector(31.5,50.0,31.£,54.0); 
vector (31 .6,54.0,33.4,58.2) ; 
vec tor (33. 4, 58. 2, 38.0 ,63.8) ; 
vec tor (38. 0,63. 8, 59. 7,78.5 ) J 
color(15); 

vec t  or (46 . 0 ,67. 8 , 58 .8 , 64 .0 ) ; 
vect or (56. 8,64. 0,62.0, 61.0 ) ; 
vector (62.0, 61. 0,62. 9, 58.0); 
vector (62.9,58.0 ,60.2 ,55.4) J 
vector(60.2,55.4,53.3,54.0); 
vect  or (53 .3 ,54.0 ,42 .0 ,56 .8) ; 
vector (42.0,56.3,39.8 ,60.0) ; 
vector (39.8,60.0,39.6,64.0) ; 
vec tor (39.6, 64.0 ,42.0 ,67 .0) ; 
vec tor (42. 0,67. 0,46.0 ,67.8) » 
color (2 ) ; 

st rt xy( 10.0, 98.0 ) ; 
st="type  ==>  Continue,  Quit”; 
strout (st ) ; 
strtxy(4.0,28.5); 

st=”  When  several  pieces  of  data  can  be  gathered  about  a 
specific  frequency,  then  the”; 
strout (st ) ; 

st="elipses  can  be  combined  to  reduce  the  area  of  probable 
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contact.  As  the  diagram  ; 
st rout (st ) i 

st=’’illustrates  the  second  set  of  data.forms  an  ellipse 
which  is  inside  the  first  ellipse."* 
strout ( st ) ; 

st="Add itional  data  causeffmore  ellipses  to  be  formed  inside 
the  present  ellipses.”; 
strout(st); 

st="  Type  'm'  to  see  how  more  ellipses  are  combined.’’; 
strout (st ) ; 
return ; 

} 

pic7a()  { 

/*  Draws  the  combining  ellipsoids  with  a  2  second 
pause  between  ellipsoid  drawings  */ 

char  *st ; 
color(0) ; 

vector(48.S,64.6,52.2,66.3) ; 
vect or (52. 2,66. 3, 55 .3 ,66.0) ; 
vector(55.3,66.0,56.4,64.2); 
vector(56.4,64.2,56.0,62.0); 
vector(56.0,62.0,54.4,59.8); 
vector (54. 4, 59. 8, 49. 2, 56.0); 
vector (49.2,56.0,47.0,55.5) ; 
vect or (47. 0,55. 5, 45. 2, 55. 4) ; 
vector(45.2,55.4,43.7,57.4); 
vect or (43. 7, 57. 4, 44. 3, 60. 2) ; 
vect or (44. 3, 60. 2, 48. 3,64.6); 
sleep  (2 ) ; 
color(15) ; 

vec tor (52. 4, 65. 7, 54.4,65.0 ) ; 
vector(54.4,65.0,55.2,63.0); 
vector(55.2,63.0,54.6,61.2)* 
vec tor (54. 6,61. 2, 52.0 ,58.2); 
vect or (52. 0 , 58. 5 , 49.0 ,56 . 5 )  ; 
vec tor (49.0, 56. 5, 47.0, 56.0); 
vector (47.0,56.0,44.8,56.4) ; 
vec tor (44. 8, 56.4, 44 .0 ,58 . 1 )  J 
vect or (44. 0,58.1, 45.0,60.2 ) 5 
vect or (45. 0,60. 2,49.0, 64. 0) ; 
vect or (49. 0,64. 0,52.4, 65.7 ) ; 
sleep(2 ) ; 
color (0 ) ; 

vec  t  or  (48 .3 , 62. 2 , 50  .8  ,59 .8 )  ; 
vec tor (50. 3, 59.8, 50.8, 58.0 ) ; 
vector(50.8,58.0,50.0,57.2); 
vector (50.0,57.2,48.2 ,57.0) ; 
vec tor (48. 2,57.0,47. 5 ,57.2) ; 
ve  c  tor  (47. 5, 57.  2, 46. 0,59. 6)  ,* 
vect  or (46 .0 ,59.8 ,46 .2  ,61 .5  ) ; 
vec tor (46. 2, 61. 5, 47. 2, 62.0); 
vector (47.2,62.0,48.3,62.2) ; 
strtxy(48.4,61 .0 ) ; 
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strout  (s t ) ; 
strtxy( 10.0, 40.0) » 

st=*The  area  around  point  A  is  now  the  contact  area. 

strout (s t ) ; 

return? 


} 


y 


pic8()  {  /*  This  subroutine  shows  the  overall  system  */ 

char  *st » 
color (1 ) ; 

bl ock(0. 0,0. 0,1 00.0,100.0 ) ; 
color(4) J 

block( 0.0, 29.0, 100.0,90.0) J 
color(8)? 

block (5. 0,40.0, 6.0,47.0) J 

block(5. 0,50. 0,6. 0,57.0) ; 

block(5. 0,60. 0,6.0, 67. 0) J 

block(12. 0,48. 0,25. 0,62.0) J 

bl ock( 25.0, 75. 0,32.0, 85.0 ) 5 

block (40. 0,73. 0,48. 0,80.0); 

block (55. 0,73. 0,75. 0,80.0); 

block (50. 0,45. 0,60. 0,60.0) ; 

block( 72. 0,45.0, 82. 0,60.0); 

block(o0. 0,32. 0,75. 0,38.0) J 

vector(5. 5, 44. 0,13. 0,55.0); 

vec tor (5. 5, £4. 0,13.0, 55.0 ) ; 

vector (5. 5, 64. 0,13. 0,55.0); 

vector (20.0,62.0,25.3,80.0) ; 

vec tor (32. 0,80. 0,44. 0,77.0); 

vector (44 . 0,77. 0,55. 0,77.0) ; 

vector( 65. 0,73. 0,55. 0,60.0); 

vec tor (65. 0,73. 0,77.0 ,60.0) ; 

vector(55. 0,45. 0,65. 0,38.0); 

vect  or ( 77. 0 ,45. 0 ,65 .0 , 38 . 0) ; 

color (2 ) J 

strtxy(3 .0 ,68.0 ) ; 

s  t=”  A  ; 

strout ( st ) ; 

st="R" ; 

strout (st) ; 

strout (st ) ; 

>•  •• 

st=  a  ; 
strout (s  t ) ; 

n _ •• 

st=  t  ; 
strout (st ) ; 

M  ^  H 

st=  s  ; 
strout (st ) ; 
strtxy (13. 0,60.0); 

st="  base”; 

strout (st); 
st=”  STATION”; 
strout (st ) ; 
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strtxy(2?.0,82.3  )  i 

st="ARC" ; 

strout ( s  t ) ; 

strtxy(41 .0,78.0) ; 

st=’ FILTER  CORRELATOR'; 

strout (st  ) » 

strtxy (52 . 0 , 58. 0 )  > 

st="  PEA E  SURFACE"; 

strout (st )  J 

s t  ="  DATA  PLOTS"; 

strout(st ) ; 
strtxy (55.0,36.  3) ; 

St="  TRACKERS"; 
strout (st ) ; 
strtxy(l0. 3,96.0); 

st=”type  ==>  Continue,  Techniques  (of  correlation). 
Parameters,  Quit  » 

strout (st ) ; 
strtxy (4 .0,28.5); 

st="  A  brief  overview  of  the  entire  system  demonstrates  the 
amount  of  complex  machinery"; 
strout(st) ; 

st=”required  to  accomplish  this  surveilance.  Signals  are 
recieved  at  the  arrays  ard  are"; 
strout (st ) ; 

st=" t ransmi t ted  to  the  base  station , ttthen  sect  via  satalite 
to  the  ARC.  In  the  ARC  the  data"; 
strout(st) ; 

st="is  then  sent  through  filters  and  a  correlator,  where 
the  computer  establishes  two  sets"; 
strout (s  t ) ; 

st=”of  data  (peak  data  files  and  surface  plots).  The  peak 
data  and  surface  plots  are  "; 
strout (st ) ; 

st=”reviewed  by  the  trackers  to  determine  any  possible 
vessel  tracks."; 
strout(st) ; 
return; 

} 

pic5 (  )  { 

/*  Same  subroutine  as  in  segment  1,  but  it  must  be 
redrawn  at  this  point  due  to  the  fork  process  */ 

char  *st ; 
color(l ) ; 

block (0.0, 90. 3, 100.0,103.0) ; 
block (0.0, 0.3, 100. 0,28.0) ; 
ocean( ) ; 
color (2 ) ; 

s trtxy ( 10 . 0 ,98. 0  ) ; 
st=”type  ==>  Continue,  Quit"; 
strout (st  ) ; 
strtxy (4 .0 ,28.5)  ; 

st="  These  large  distances  between  arrays  allow  the  system 
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to  cover  ; 
strout (st ) ; 

st="a  large  area  of  ocean,  let's  say  430  rriles  by  400  miles 
or  roughly"; 
strout  (st); 

st="the  size  of  Montana.  This  area  can  be  further  subdivided 
into  100  sectors,"; 
strout  (st ) ; 

$t="each  40  miles  square  to  make  the  tracking  easier.  Each 
of  thes  sectors  ; 
strout (st); 

st="can  presently  be  covered  by  XXX  correlations  per  hour.’  ; 
strout ( st ) ; 
disect ( ) ; 
color (13) ; 

block(l9.6,64.3,21 .0,66.0); 

color (0); 

st="400  miles"; 

st rtxy (14.0 ,94.0 ) ; 

strout (st )  ; 

strtxy (27 .0 ,72. 0 ) ; 

st rout ( s t ) ; 

return ; 

} 

disectO  { 

float  xl,x2,yl,y2; 

color (0 ) ; 

x2=26 . 0  5 

y 1=60 . 0  ; 

y2=80 .0 ; 

for  (xl=10.0;xl<=27.0;xl=xl+1.6) 
vector (xl ,yl ,xl ,y2 ) ; 
xl=10.0J 

for  ( yl=60 .0 ; yl<=81 .0 ; yl =yl +2 . 0 ) 
vector (xl ,yl ,x2,yl) ; 

}  /*  End  of  segment  2  */ 


\ 
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/*################*######*############# ###*######*######### 

#  This  is  the  fourth  section  of  the  tutorial  and  it  gives  # 

#  the  user  a  detailed  look  at  the  types  of  displays  that  # 

#  he  will  he  seeing  under  actual  operating  conditions.  It  # 

#  explains  specifics  to  watch  out  for,  whereas  the  senario# 

#  gives  only  a  very  brief  explanation.  The  flow  of  the  # 

#  urogram  is  very  similiar  to  the  first  two  sections.  # 

###########*#####################*#####£#################*/ 

rrain()  r  /*  main  of  the  fourth  section  */ 

float  xty,zj 

char  cc ,cd tce,*st » 

int  samp,i; 

ramtek();  /*  initializes  the  Ramtek  system  #/ 
writon(l ) ; 

colortable  ( ) ;  /*  establishes  a  new  color  table  */ 

colort(10) ; 
pic8( ) ; 
cc  =  'z ' ; 


while  ( c c==  'z  ' ) 
cc=retchar( ) ‘ 

{  /*  while  #1  */ 

switch(cc ) 

f 

/*  switch  #1  */ 

case  'c  ' : 

/* 

Continue  #/ 

pic9a ( ) ; 
break ; 

/* 

positional  data  display  * 

case  'r't 
pstop(  ) ; 

/* 

Return  */ 

pic8( ) ; 
cc= ' z ' ; 
break; 

/* 

overall  system  display  */ 

case  't ' : 
pic81  ( ) ; 
cd='z'; 

/* 

technique  display  */ 

while  (cd 

=='  z 

')  {  /*  while  #2  */ 

cd=retchar ( ) ; 

switch(cd)  {  /*  switch  #2  */ 

/*  Continue  */ 

/*  Return  */ 

/*  technique  display  */ 

/*  formula  display  */ 


/*  parameter  display  */ 


case  'c': 
pic9a ( ) ; 
break; 
case  'r's 
pstop  f ); 
pic81(  ); 
cd=  'z  ' ; 
break; 
case  'f': 
picSll ( ); 
cc='z 
break; 
case  'p  ' : 
pic82 ( ) ; 
cc='z '; 
break; 
default : 
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} 


cd='z'» 


/*  end  switch  #2  */ 

}  /*  end  while  #2  */ 

break?  ^ 

case  'p':  /*  parameter  display  */ 

pi c82 (  ); 
cc  =  'z ' ; 
break; 

default : 

/  /  • 
cc=  z  i 

}  /#  end  switch  #1  */ 

}  /*  end  while  #1  */ 


cc  =  'z ' ; 


/*  while  #3  */ 


while  ( cc== ' z ' )  { 

cc=retchar ( ) ; 

switch(cc)  {  /*  switch  #3  */ 

/*  Continue  */ 

/*  peak  data  display  */ 


case  c  : 
picSb ( ) ; 

break; 
case  'r': 
pstop( ) ; 
pic9a ( ) ; 
cc='z '; 


/*  Return  */ 

/*  position  data  display  */ 


break; 
defaul t : 
cc=  '  z  ' ; 

}  /*  end  switch  #3  * / 

}  /*  end  while  #3  */ 

cc='z' ; 

while  (cc=='z')  {  /*  while  #4  */ 

cc=retchar ( ) ; 

switch(cc)  {  /*  switch  #4  */ 

/*  Continue  */ 

/*  scores  display  */ 


'c ' 


} 


} 


case 
pic9c (  ) ; 
break; 
case  'r': 
pstop(  ); 
pic9b ( ) ; 
cc  =  'z  '; 
break; 
default : 
cc  =  'z ' ; 


/*  Return  */ 

/*  peak  data  display  */ 


/*  end  switch  #4  */ 
/*  end  while  #4  */ 


/*  while  #5  */ 


cc='z '; 

while  (cc=='z')  { 

cc=retchar ( ) ; 

switch(cc)  {  /*  switch  #5  */ 

case  'c':  /*  Continue  */ 

picl0(  );  /*  surface  plot  display  */ 

break ; 

case  'r':  /*  Return  */ 

pstop( ); 

pic9c();  /#  scores  display  */ 
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/  /  . 
cc=  z  > 

break; 

default : 

/  /  , 
cc=  z  > 

}  /*  end  switch  #5  */ 

}  /*  end  while  #5  */ 

cc  =  'z '; 
samn=l > 


while  (cc=='z')  {  /*  while  #6  */ 

cc=retchar ( ) ; 

switch(cc)  {  /#  switch  #6  */ 

case  'c':  /#  Continue  */ 

picll( );  /*  covariance  matrix  display 

break; 

case  'r':  /*  Return  */ 

pstop ( ) ; 

picl0();  /*  surface  plot  display  */ 


CC=  Z  1 

break; 

case  's':  /*  sample  surface  plots  */ 

if  ( samp==l )  { 

picl01 ( ) ; 
samp=2; 


} 


else  { 
pic  102 ( ) ; 
samp=l ; 

} 


cc='z ' ; 
break; 
default : 
cc=  'z ' ; 

}  /*  end  switch  #6  */ 

}  /*  end  while  #6  */ 

}  /*  end  main  of  section  3  */ 


*/ 


pstop()  {  /*  Quit?  subroutine  #/ 

char  *st ,  stop ,*sp ; 
sp="  ”; 
color (11 ) ; 

block (0.0, 0.0, 100. 0,1 03. 3) ; 
color (5 ) ; 

strtxy (45 .0 ,80.0  ) ; 

st="D0  you”; 

strout (s  t ) ; 

strout ( sp) ; 

st=”RSALLY"; 

strout(st);  strout(sp); 

s  t=”WA.NT  TO"; 

strout ( st ) ; 

strout (so ) ; 

st="  RETURN  TO"; 
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strout(st);  stroyt ( sd  )  * 
stroutC’TSE  M A.IN  );  strout(sp)? 
s trout ("PROGRAM?  "  )  ; 
s t  =" ( y  /  n)”; 
strout ( st ) ; 
stop=retchar  ( ) ; 
if  tstop=='y')  { 
color (0 ) ; 

blockt 0.0 ,0. 0,100.0, 100. 0) J 
ex  i  t  ( ) ; 

} 

return  > 

} 


colortablet)  {  /#  establishes  a  new  color  table  */ 

int  a  [161  » 

a  [0]  =  triplet?, 0,0); 
a  Cl]  =  triple(  15,0,0); 
a[2l  =  triple(0,15,0) ! 
a  [2]  =  tripled, 0,15)? 
a  [4]  =  triplet  15, 5,0) ; 
a  [51  =  tripled, 0,6); 
a [6]  =  triDle(0,10,0) ; 
a [7]  =  tripled, 6, 10); 
a  [o]  =  tr inlet 6, 10,2 )  *, 
a  [9]  =  tripled?, 2, 6)? 
a [10]  =  triple  (13,5,2); 
a  Lll ]  =  triplets, 2, 13)  ? 
a [12]  =  triple  (2,12,5); 
a [13]  =  triple (15,0,15); 
a [14l  =  triple  d 0,4,4 ) ; 
a  [15]  =  triplet  15  ,16 ,15) ; 
clrtbl ( 13  ,a  ) ; 
return? 

} 


/*  black  */ 

/*  blue  */ 

/*  green  */ 

/•f  red  ’•V 
/*  light  blue  */ 

/*  maroon  */ 

/*  bright  green  */ 
/*  peach  */ 

/#  pail  green  */ 

/*  purple  */ 

/*  medium  blue  */ 
/*  hot  pink  */ 

/*  light  green  */ 
/*  pink  */ 

/*  greyish  blue  */ 
/*  white  */ 


picSt)  { 

/*  Redraws  th 
char  *st; 
colord ) ; 

block(0 .0 ,0 .0 ,100 . 
color(4) ; 

block(0. 0,29.0, 100 
color(S) ; 

block(5.0 ,40.0,6.0 
block(5. 0,50. 0,6.0 
block(5. 0,60. 0,6.0 
block(12. 0,49. 0,25 
block(25. 0,75. 0,32 
block(40. 0,73. 0,48 
block(55. 0,73.0 ,75 
block(50. 0,45. 0,60 


display  of  the 


5,100.0)  ; 

.0,90.0); 

,47.0) ; 
,57.3); 
,67.0); 
.0,62.0); 
.0,95.3) ; 
.0,80.0); 
.0,80.0); 
.0,60.0) ; 


overall  system  */ 
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bl ock (72  .0  ,45.0,82.0,60.0)  J 
block (50.0, 32.3 ,75.0, 38.0)5 
vector(5. 5, 44. 0,13. 0,55.0); 
vector(5. 5, 54. 0,13.0,55.0); 
vsc tor (5. 5, 64. 0,13. 0,55. 0) J 
vector(20. 0,62. 0,25. 3, 80.0) 
vector(32. 0,80.0, 44 .0,77.0) 
vector( 44. 0,77. 0,55. 0,77.0) 
vector(65. 0,73. 0,55. 0,60.0) 
vector(65. 0,7 3. 0,77. 0,60.0) 
vector(55. 0,45. 0,65. 0,36.0) 
vector (77.0,45.0,65.0,38.0) 
color (2  ) ; 
s  trt  x^(3 . 0,68.0); 
st  =  ”  a  ; 
strout ( s  t ) > 

«•  M 

st=  r  ; 
strout ( st); 
strout (st ) ; 

t «  «• 

st-  a  ; 
strout (s t ) ; 
st="T”; 
strout (s  t ) ; 
s  t  =**  S  *  ? 
strout  (st )  5 
strtxy(13. 0,60.0) » 
st-"  base”; 


1 


1 


> 

J 


strout (st ) ; 
s  t="  STATION*’; 
strout ( s  t ) ; 
strtxy (27. 0,82.0)  > 

St-"ARC"; 
strout (st ) ; 
strtxy (41 .0,78. 0 ) ) 

S  t=’’FILTER  CORRELATOR"; 

strout (st ) ; 
s  t r txy ( 52 . 0 , 58. 0 ) » 
st-”  PEAK 
strout ( s  t )  5 
st-"  DATA 
strout (s  t ) ; 
strtxy(55. 0,36.0); 

S  t  — "  TRACKERS"; 

strout (s  t ) ; 
strtxy ( 10 .0 ,98. 0  )  J 
st=”type  ==>  Continue, 

Parameters ,  Quit”; 
strout (st ) ; 
strtxy(4.0,28.5) ; 

st="  A  brief  overview  of  the  entire  system  demonstrates  the 
amount  of  complex  machinery”; 
strout (st ) J 

st-’’ required  to  accomplish  this  surveilance.  Signals  are 
recieved  at  the  arrays  and  are"; 


SURFACE"  ; 

PLOTS"; 

Techniques  (of  correlation), 
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strout ( s t )  ’ 

st="transmitted  to  the  base  station,  then  sent  via  satalite 
to  the  ARC.  In  the  ARC  the  lata  ; 
strout ( st ) ; 

st="is  then  sent  through  filters  and  a  correlator,  where 
the  computer  establishes  two  sets’  ; 
strout (st ) ; 

st=”of  data  (peak  data  files  and  surface  plots).  The  peak- 
data  and  surface  plots  are  ", 
strout ( st ) ; 

st="reviewed  by  the  trackers  to  determine  any  possible 
vessel  tracks.”? 
strout  (s  t )  ; 
return? 

} 


pic81 ( )  f 

/*  This  display  explains  the  technique  used  in 
the  correlation  process  */ 

char  *st ,*sp? 
color (1 ) ; 

block(0. 0,0. 0,100. 0,100.0) ; 
color (4 ) ; 

block ( 0 . 0,0. 0,100.0,30.3)  j 
color (2 ) ; 

strtxy( 10 . 0 , 98. 0  ) ; 

st=”type  Continue,  Formulas,  Parameters,  Quit”; 
strout (st ) ; 
sp="  ’ ; 
color(5) ; 

st=”  STATEMENT  OF  THE  TECHNIQUE  " J 

strtxy(l0 .0 ,80.0 ) ; 
strout ( s  t ) ; 
strout (sp ) ; 

st="  Given  two  sequences  of  time  series  data,  a  function 
represents  the  "; 
s  trout ( s  t ) ; 

st=”degree  of  match  of  the  two  time  series  as  a  function  of 
adjustment  of  the"; 
strout (s  t ) ; 

st="delay  and  of  adjustment  of  the  relative  Foppler  ratio 
between  the  two  ; 
strout ( s  t ) ; 

st="series.  The  term  "coherent",  applied  to  this  function, 
implies  that"; 
strout (st ) ; 

st="the  relative  phase  evolutions  of  the  time  series  are 
made  use  of  in"; 
strout ( s  t ) ; 

st=”determining  the  degree  of  match,  rather  than  discarded 
as  in  an  incoherent"; 
strout ( s t ) ; 

s t="ca lcula t ion .  The  time  series  of  interest  to  us  are 


141 


finite,  discrete,”; 
strout ( st ) ; 

st="f requency-shif ted ,  band-limited,  complex  time  series 
obtained  from”; 
strout ( st ) » 

st="passive  sonar  sensors  (hydrophone  arrays).’; 
str out ( st ) ; 
return ; 

} 


picSllO  { 

/*  This  display  illustrates  the  formulas  used 
in  the  correlation  */ 
char  *st  ,*sp; 
color(l ) ; 

block(0. 0,0. 0,1 00. 0,100.0)  ; 
color (4 ) ; 

block (0.0, 25. 0,100. 0,90. 5) ; 
color(2 ) ; 

strtxy ( 10 .0,98.0); 

st="type  ==>  Continue*  Techniques  (of  correlation). 
Parameters,  Quit  ; 
strout ( s  t ) ; 
sp=  ; 
color(5) ; 
strtxy (5 .0  ,88.0  ) ; 

st=”l)  X (a , t )  = -  X'(n)  X  (n-t/  T)e"; 

strout ( st ) ; 
strout ( sp ) ; 

st=”2)  X'(n)  =  X  (ar-( a-1 ) N/2  )”  ; 

strout (s  t )  ; 
strout (sp ) ; 

st=”3)  A  =  X '  (n )  X  (n)  X  (m-t/  T)X  (m-t/  T)”,* 

strout (st ) ; 

strout(sp); 

st="  where  X(a,t)  is  the  modulus  correlation  coefficient" 
strout (st); 

st="  a  is  the  relative  Doppler  ratio  compensation"; 

strout (st); 

st="  t  is  the  delay  compensation"; 

strout ( st ) ; 

st="  A  is  the  normalization  constant"; 

strout (st ) ; 

st="x  and  X  are  time  series  sampled  at  time  intervals  T"; 
strout (st ) ; 

st="  FI  and  F2  are  the  center  frequency  of  the 

passband  for  the  time  series"; 
strout (st ) ; 
s  trtxy (5 .0 ,36.4)  ; 
st="  1  2"; 

strout  (st ) ; 
strtxy (5 .0  ,90.2  ) ; 

st="  1  N-l  *  2 1 1 i ( aFl-F2 )n  T"; 
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2 


strout ( st ) ; 
st=" 

strout (st ) ; 
strout ( so) ; 
st*"  1 

strout ( st ) ; 
st="  2  N-l 

strout ( st )  > 
s  t  ="  n  =o 


A  n=o 


1  1 


1 


N-l 


m=o 


M 

1 


2 


* 


•  • 

J 


2 


strout  ( st ) ; 

vector(9.0,84.5,9.0,88.2) > 
vector(15.8,84.5,15.8,88.2); 
vect or (23 .0 ,82. 0 ,23.0 , 90 .0 ) ; 
vector(6S. 0,82. 0,68. 0,90.0); 
block (35. 0,86. 0,25.5, 86.8 ) ; 
vect  or ( 45 .0,85. 0,46. 5, 85.0)? 
vector(45.0,85.0,45.7,87.0) ; 
vector(45.7,87.0,46.5,85.0); 
vector(64.5,87.0,66.0,87.0) ; 
vector (64.5,87.0,65.2,89.0) ; 
vec tor (65. 2, 89. 0,66.0, 87.0) ; 
vec tor (51 .0,90.2,53.0 ,90.2) ; 
vect  or (45. 8, 65. 0 , 47 .3 , 65 . 0 ) > 
vector(45.8,65.0,46.5,67.0); 
vec tor (46. 5, 67. 0,47.3 ,65.0) J 
vect or (58. 2, 67. 0,59. 0,65.0) ; 
vector(57.5,65.0,58.2,67.0); 
vector(57. 6, 66. 0,59. 0,65.0) > 
vector(13.5,67.5,17.0,67.5); 
vect or (13. 5,67. 5, 16. 0, 66.2 ) ; 
vec tor (13. 5,65. 0, 16. 0, 66.2  ) ; 
vector (13.5,65.0, 17.0,65.0) ; 
vector(32.0,67.5,35.5,67.5); 
vect or (32. 0,67. 5, 34. 0,66. 2) ; 
ve ct or (32. 0,65. 0,34.0,66.2 ) ; 
vector (32.0,65.0,35.5,65.0) ; 
block( 24.8,66. 4, 25. 2,66.9); 
vector (24.0,87.0,27.5,87.0) ; 
vec tor (24 .0 ,87. 0 , 26 .0 ,85  .8 ) ; 
vec tor (24. 0,84. 5, 26. 0,85.8 ) ; 
vect or (24. 0 ,64.5 ,27.5 ,84.5) ; 
vec tor (71. 7,35.0, 73.3,35. 0) ; 
vec tor (71 .7,35.0,72.5,37.0) ; 
vect or (72. 5,37. 0,73.3,35.0) 5 
s  trtxy (4 .0 ,22.5) ; 
color(2 )  * 

st=”The  basic  correlation  structure  can  be  seen  in  equation 
las  the  modulus  of” ; 
strout (st )  ; 

st=”norraliz ed  sum  of  products  (with  one  series  conjugated) 
of  the  time  series”; 
strout ( s t ) ; 

st=”samples.  The  other  two  equations  are  used  for  delay  and 
Doppler  compensation”; 
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strout ( s t ) » 
st="of  the 
strout (st ) ; 
return ; 

} 


time  series  prior  to  correlation. 


pic82( )  { 

/*  This  display  shows  the  various  parameters  that 
can  he  altered  to  get  a  better  picture  */ 
char  *st ,*sp ; 
color(l ) » 

block(0.0,0.0,100.0,100.e) » 
color(4) J 

b lock (0.0, 29. 0,1 00.0, 90.0) ; 
col  or (2  )  ? 

strtxy (10 .0,98.0 ) J 

st=”type  ==>  Continue,  Techniques  (of  correlation),  Quit"; 
strout (st ) » 
s trtxy ( 16.0,25.0); 

st="  Listed  above  are  a  few  of  the  various  parameters  that 
can  be"; 
strout ( s  t ) ; 

st="ad just ed  to  get  a  better  track  of  the  vessel.  Other 
parame  ters" ; 
strout (st ) ; 

st="are  demonstrated  throughout  the  tutorial  and  if  the 
limits  are"; 
strout(st); 

st="exceeded ,  the  computer  will  adjust  and  notify  you.”; 
strout ( st ) ; 
color (0 ) ; 

vector(43.0,?6.0,51.5,76.0); 
strtxy(20. 0,80.0) ; 

st=”  ranges"; 

strout (st ) ; 

St=” LONGITUDE  30.00-50.00"; 

strout (st ) ; 

st="LATIDUDE  150.00-130.30"; 


strout (s  t ) J 
st="COHERENCE  LIMIT 
strout (s  t ) J 
st=" TRACE  NUMBER 
strout ( st ) J 
St="RUN  NUMBER 
strout(st) ; 
St="REGION  NUMBER 
strout (st )  J 
return; 


0. 0-2.0"; 
1-10" ; 

l  -7  " ; 
i-25”; 


} 


pic9a ( )  { 

/*  This  display  shows  the  user  what  kind  of 

information  he  will  receive  when  he  actually 
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uses  the  system  */ 
char  *st  ,cc  ,*stl  ,*sp; 
colcr(l ) ; 

block (0.0,0. 0,1 00. 0,1 00.0); 
color (4 ) ; 

block (0.0 ,29.0, 100.0,90.0) J 
color (2 ) » 

s trtxy( 10.0, 96.0) j 

st="type  ==>  Continue,  Quit”; 

strout ( s  t )  J 

color (5 ) ; 

strtxy(5. 0,86.0) ; 

S 1 1  = "  RUN  NUMBER  6  REGION  NUMBER  6  TRACK  NUMEER  9"; 
stroutt(stl )  J 
sp="  * ; 
strout ( sp) ; 

Shows  the  position,  course,  and  soeed  of  a  vessel  */ 


st=Vater  Time 

Peak 

Position 

Coordinates 

Courses 

strout (st ) 
st*"  23-FeI 

j-63 

Number 

Lat i tude 

Longi tude 

C  ourse 

strout (st ) 
strout (sp) 
st*"  14:58 

03 

0 

39.5000 

147.5000 

0.0 

strout ( st ) 
st*"  14:58 

03 

3427 

39.4711 

147.4707 

142.0 

strout (st ) 
st="  15:04 

23 

3533 

39.4682 

147.4552 

154.7 

strout (st ) 
st="  15:14 

33 

3449 

39.4212 

147.4189 

153.9 

strout (s t ) 
st*”  15:38 

35 

3540 

39.3582 

147.4417 

160.3 

strout  (st ) 
st=”  15:48 

44 

3452 

39.3980 

147.4815 

161.6 

strout (st ) ; 
color (2 ) > 
strtxy (4 .0 ,28.5 ) ; 

st="  This  data  illustrates  the  estimated  position,  course 
and  speed  of  a  suspected"; 
strout (st ) ; 

st="vessel.  Depending  or.  how  consistent  the  data  is,  the 
more  accurate  the  estimated"; 
strout (s  t ) ; 

st="position  probably  is.  For  example,  the  courses  and 
speeds  in  the  above  display"; 
strout (st ) ; 

st="are  relatively  close  together,  thus  the  data  is 
probably  from  a  vessel.  If  the"; 
strout (s  t ) ; 

st="courses  were  159.0,  135.6,  160.4,  122.7,  150.3  then  the 
data  would  probably  be”; 
strout  (st ) ; 

st=”from  noise  in  the  ocean."; 
strout (st ) ; 

} 
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oic9b ( )  { 

/*  Shows  the  reference  stations  and  their  tau  and 
doppler  values  */ 
char  *st  ,cc ,*st 1 ,*sp  ; 
c  ol or ( 1 ) » 

block(0.0,0.0,100.0,100.0)  t 
c  olor (4  ) ; 

block (0.0, 29.0, 100.0,90.0) 5 
color(2 )» 

strtxy(10. 0,98.0) > 

st=”type  ==>  Continue,  Quit"; 

st rout (st )  ; 

color (5 ) ; 

strtxy(5. 0,86.0) » 

St  1  =  ’’  RUN  NUMBER  6  REGION  NUMBER  6  TRACK  NUMBER  9”; 


st routes tl )  J 


sp=  ; 
strout ( sp) » 


st=  Receipt  Time  Peak 

- Peak  Data - 

strout ( st ) ; 

-REF  Station- 

•« 

• 

1 

-PPD  Station- 

st=  20-Fet 
TAU 

strout ( st ) 
strout (sp ) 

)-80  Number  STM/3M 

DOPPLER  Gamma-Sq" ; 

Freq 

STM/3M 

Freq 

st=”  00:00 
strout ( s t ) 

00 

0 

0 

0 . 00 

0 

0.00 

st-"  15:16 
strout (s  t ) 

15 

3427 

1323024 

41 . 40 

1322029 

41.40 

st-"  15:16 
strout ( st ) 

15 

3533 

1322031 

41.40 

2411020 

41.00 

st=”  15:33 
s trout ( s t ) 

19 

3449 

1323024 

41.40 

1322030 

41.40 

st="  15:50 
strout ( s  t ) 

23 

3540 

1322031 

41.40 

2411021 

41.40 

st-"  16:07 
strout (st ) 
color (2 ) ; 
strtxy(4.0 , 

27 

,28.5) 

3453 

• 

> 

1323025 

41.40 

1322030 

41  .40 

st="  This 

da  ta 

gives  you 

the  same 

peak  numbers,  the 

array 

stations  that  received  the  ; 
strout (st ) ; 

st="signals,  the  frequency  of  the  signal  and  peak  data.  The 
variances  in  the  tau  and” » 
strout (st ) ; 

st=”doppler  values  can  give  evidence  as  to  the  validity  of 
the  track.  The  switching  of”; 
strout ( st ) ; 

st=”the  tau  values  from  -416.7  to  27.3  to  -412.8  ect.  reans 
that  the  ellipsoids  will 
strout (st  ) ; 

st=”probably  combine  very  wellt<because  the  data  obviously 
is  being  collected  at  two 
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strout(st); 

st=’’dif  ferent  sets  of  arrays.’? 

strout(st); 

return  ; 

} 

pic9c ( )  f 

/*  Shows  the  Chi-square  scores  for  the  various  data  */ 
char  *st ,ccf*stl ,*sp» 
color (1 ) ? 

block( 0.0, 0.0,100. 0, 100.0); 
color (4) ; 

block(0. 0,29. 0,100. 0,90.0); 
color (2 ) j 

strtxy(10. 0,98.0); 

st="type  ==>  Continue,  Cult”; 

strout (st  ) ; 

col  or ( 5  ) ; 

strtxy(S .0  ,86.0 ) ; 

Stl="  PUN  NUMBER  6  REGION  NUMBER  6  TRACE  NUMBER  9"; 

strout (stl ); 

••  .. 

sp=  » 

strout (sn ) ; 

**  - 


st=" Water  Time 
strout (st ) ; 

peak 

Pr  ob 

— CHI  Square 

Scores — 

st*’’  23-Feb-80 
strout (st ) ; 
strout ( sp) ; 

Number 

Score 

S  tagewi se 

Cumula  ti  ve 

st="  14:58:03 
strout ( s  t ) ; 

0 

0.00 

0.0000 

0.0000 

st*’’  14:58:03 
strout (st ) ; 

342^ 

1 

« 

00 

•S> 

0.2171 

0.3171 

st=”  15:04:23 
strout (st ) J 

3533 

-4.89 

0.0162 

0.1667 

st="  15:14:30 
strout (st ) ; 

3449 

-3.99 

0.4410 

0 .2581 

st*"  15:38:35 
strout (st ) ; 

3540 

-4.66 

1.4096 

e  .2460 

st-"  15:48:44 

3452 

-4.81 

2.0796 

0.8527 

strout (st ); 
color(2 ) ; 
strtxy(4.0 ,28.5 ) ; 

st="  This  data  shows  the  sane  peaks,  their  Chi  Square 
probabilities  of  actual  "; 
strout (st ) ; 

st  =  ’’position ,  and  their  measured  residuals.  The  Chi  Square 
scores  are  broken  ”; 
strout (s  t ) ; 

st=’*into  two  groups,  each  individual  score  and  tne  cumula¬ 
tive  total.  A  good  "» 
strout (st ) ; 

st=”check  as  to  the  probability  of  an  actual  contact  is  the 
cumulative  score,’’; 
strout ( s  t ) ; 
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st="near  1.0 
strout (  s  t ) ; 
return ; 


} 


is 


quite  good  . ”  ; 


picl0()  J 

/*  This  display  explains  what  a  surface 
plot  will  look  like  and  show.  */ 

char  *st  ,*sp ; 
color (1 ) ; 

hi ock(0. 0,0. 0,1 00. 0,1 00.0); 
color(4) ; 

h lock (0.0, 29.0, 100.0, 90. 0) J 
celor(2) ; 

strj;xy(  10. 0,98.0); 

st=”type  ==>  Continue,  Sarrples,  Quit”; 

strout (st ) ; 

st  rt xy( 4 .0 ,28.5) ; 

st=”  By  exarrining  a  surface  plot  the  tracker  nay  he  able 
to  see  a  pattern  of  peaks"; 
strout (st ) ; 

st=”that  would  establish  a  vessel's  track.  Care  must  be 
taken  when  viewing  the"; 
strout ( st ) ; 

st=”surface  plot  displays  because  the  size  of  the  area 
(range  of  latitude  and  longitude)"; 
strout ( st ) ; 

st="can  be  varied,  thus  giving  the  appearance  of  a  track 
when  there  -night  not  be"; 
strout (st); 
st=”one  there.”; 
s  trout ( s  t ) ; 
color(7 ) J 

block (40. 0,45. 0,71. 5 ,78.0) ; 
c  o  1  o  r  ( 0 ) ; 

st="Region  Number  6"; 
strtxy (5 .0 ,70 .0 ) ; 
strout (st ) ; 

st="Coherence  Limits  1.0"; 

strout (st ) ; 

st=" — *  ; 

•  •  •• 

sp=  ; 

strtxy (38. 5,80.7); 
strout (sp)  J 
strout ( st ) ; 
strout (sp) ; 
strout (st ) ; 
strout (sp) J 
strout (st ) ; 
strout (sp ) ; 

st="  1111  1"; 

strout ( st ) ; 

st="40.0e"; 
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S  trtxy( 32. 5,75.7  )  ,* 
s  trout ( s  t )  t 
s  t  rtxy (?2 . 5 ,46. 2 ) ; 
st  ="38. 30  5 

s  trout (s  t ) ; 
strtxy(36.0,42.7) ; 

St=”  147.30  145.33"; 

strout (st ) 5 

circ (  ) ; 

return  J 

} 


circ ( ) 

{ 

/* 

Traws  a  surface 

plot 

char  #A 

f 

f*Ff* Gf*Ef*J 

,*K, 

A="o 

0 

Coo 

0 

o’’ 

S  =’’  o 

0 

0  o 

0 

D="  o 

0  o 

o" 

F=” 

0 

0 

0 

G  =  " 

00 

0 

0 

H=”  o 

0 

0 

0  ” 

J=” 

o  0 

0 

£=”  o 

0 

0  o 

0  ’’ 

L=”  o 

0 

0 

0 

col  or (0 ) ; 

st rtxy (40 .0 ,80 . 0 ) ; 

strout  (A. ) ; 
strout (S ) ; 
s  trout ( D ) ; 
strout (F) 5 
strout (G) ; 
strout (H) J 
strout ( J  ) ; 
strtxy(40. 0,77.0); 
dblwid ( 1 ) ; 
strout (L ) ; 
strout (A ); 
strout(H) ? 
strout  (H)  »* 
s  trout (H) ; 
strtxy(41 .0 ,59.9 ) ; 
dblwid ( 0 ) J 
strout (D ) ; 
strout (5 ) » 
strout (L ) ; 
dblwid (0 ) ; 
color (4 ) ; 

block (39. 0,78. 3, 100.3,65.0) ; 
bl ock( 71 .5,44.0,100.0,85.0)  *, 
} 


picl01()  {  /’''Draws  another  surface  clot  sarple  */ 
char  *st  ,*sp; 
color(l ) ; 
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bloc  1^(0.0,0.0,100.0,100.0); 

col  or (4 ) ; 

block(  0.0, 29.-0, 130.0,90.0) ; 
color (2 ) ; 

s trtxy (10.0, 98.0 ) ; 

st="type  ==>  Continue,  Samples,  Guit"; 
st rout (s t ) ; 


strtxy(4.0 ,28.5) ; 
strout ( sp ) ; 

st="This  surface  plot  shows  a  very  probable  track,  pointed 
toby  the  a  rrow .” ; 
strout (st ) ; 

st=’’Because  the  size  of  the  plot  is  relatively  small  (60 
miles  square)  and  the"; 
strout (st ) ; 

st="coherence  limit  is  relatively  high  (  1.0  ),  this  is 
probably  a  track  of  a”; 
strout (s  t ) ; 

st="vessel  and  should  be  further  investigated.”; 
strout (s  t ) ; 
color  (?) ; 

block (40.0 ,45.0,71.5,78.0) ; 
color (0 ) ; 

st=”?.egion  Number  23"; 
s t  rt xy (5 .0 ,70 .0  ) ; 
strout (st); 

st="Coherence  Limits  1.0”; 
strout (st ) ; 

*•  9\ 


st=  — 


y 


»• 

SD  = 


# 

y 


strtxy(3£.5,80.7) ; 
strout (sp) ; 
strout (st  ) ; 
strout ( so ) ; 
strout(st) ; 
strout ( sp  ) ; 
strout (st ) ; 
strout (sp ) ; 

st="  llll  l"; 

strout (st ) ; 
st="39.00" ; 


st  rtxy (32 .5 ,75.7 ) ; 
strout (st ) ; 
s  trt  xy (32 .5 ,46. 2 ) ; 
st="38.00  — 


strout (st ) ; 
strtxy(36.0,42.7); 

st=”  147.00  146.00"; 

strout (st ) ; 
circ2  ( ) ; 
color(0) ; 

bl ock( 50.4, 80. 0,51.0, 87.0 ) ; 
vec tor (5 0.7, 79. 0,49. 4,83.0 ) ; 
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vector(50. 7,79.3,52. 3  , 83.0) ; 
return ; 

} 

circ2()  {  /*  Drawing  a  surface  plot  #/ 

char  n; 

char  *sp  ,*st ; 

char  *A,*S ,*! ,*Ft*G,*H#*J 

SP=" 


o 

o 

;« ' 

0 

C  0 

0 

°: ; 

S=  o 

D="  o 

F="  0 

G=" 

0 

0 

oc 

0 

0 

0 

0 

0 

0 

0  M  ’ 

E="  o 

J=” 

0 

0 

0 

0 

0 

0  "  ’ 

K="  o 

L=”  0 

0 

0  o 

0 

0 

o  * ; 

color (3 ) J 

s  trtxy (43 .0 , 80 . 3 ) 5 
strout ( A ) ; 
strout (S ) J 
strout (D) ; 
strout (? ) ; 
strout (G) J 
strout (E) ? 
strout ( J) ? 
s tr txy (43.0, 77.0 ) ; 
dhlwid(l); 
strout ( L ) ; 
strout (A ) ; 
strout (E) ; 
strout (L ) ; 
strout (L) ; 
strtxy(41 .0,59.9); 
dhlwid ( 0 ) ; 
strout (D ) J 
strout (K) ; 
strout ( L ) ; 
dhlwid (3 ) > 
s  trtxy (42 .0 ,72 . 0 ) ; 
strout (G ) ; 
strout (G ) ; 
s  trout ( S ) ; 
strout (G ) ; 
strtxy(40.0, 76.0) ; 
s  t  r  ou  t  ( G ) ; 
strout ( S ) ; 
strout (A ) ; 
strtxy(40. 0,75.0); 
dhlwid  ( 1  )  *, 
strout (E) ; 
strout (I) ; 
strout (E) ; 
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s  t  rout (L  ^ ; 

n  _  »» 

5t=  00  » 

strtxy(47.0,S2.3 ) ; 
st rout  (s t ) ; 
strout (st  ) ; 
strout (sp)  5 
strout  (st ); 
strout (sp) ; 
strout (s  t ) ; 
strout (st ) » 
color (4 ) ; 
dblwid (0 ) » 

block (39.0 ,78.0,100.0,85.0)  I 
block ( VI .5,44.0,100.0 ,85.0); 
} 


picll()  { 

/*  This  display  shows  the  covariance  matrix  and  then 
asks  the  user  if  he  wishes  to  move  on  to  the 
Senario  or  redo  the  tutorial  */ 
char  *st  ,cc ,~st 1 , *spT 
color (1 ) 5 

block (0.0, 0.0, 100. 0,1 00.0) ; 
color(4) ; 

b 1 ock ( 3 . 0 , 29 . 0 , 1 00 . 0 , 9 3 . 0 ) ; 
color (2 ) ; 

st rtxy (10 .0 ,98.0 ) » 

st=”type  Continue,  Senario,  Tutorial  (again),  Cuit”; 
strout (st ) : 
s t rtxy (5 .0 ,88 .0 ) > 
color (5 ) ; 

Stl=”  ?.UN  NUMBER  6  REGION  NUMBER  6  TRACE  NUMBER  9"  5 


s  t  r  ou  1 s  1 1  )  J 
sv="  ’ ; 


st="Vater  Time 
MATH I I - 


strout (st ) ; 
st="  23-Eeb-80 


strout ( s  t ) ; 
st rtxy (5.5,73.0) 
st=”  14:56:03 


strout ( st ) ; 
st=" 

strout (st ); 

•  • 

st  = 

strout (st )  > 

•  * 

st  = 

strout (st ); 
strtxy(5.5,49.3) 
st*’’  15:04:23 
strout (  s  t )  j 
st=" 


strout(st) ; 


J 


1 


peak 


Number 

3427 


3533 


- COVARIANCE 

•  • 


0.03136 

0.0C000 

0 . 00003 

37.88962 

-0.03150 

0 .00000 

0 . 00000 

-48 .49765 

0.00985 

0.00047 

0 .00047 

0  .31107 
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3.00551 


0.30178 


s  t  = 

strout (st ) ; 

st  =  "  -0.00001  0.19271 

s trout (s t ) ; 
color (2 ) * 
strtxy (4 .3 ,28. 5 ) ; 
s  trout (sp) t 

st=”  This  display  illustrates  the  covariance  matrices  which 
can  he  used  to”; 
strout (s  t ) ; 

st=’’determine  how  accurate  the  estimated  courses  and  speeds 
are.  An  experienced”; 
strout ( s  t ) ; 

st=”tracker  could  determine  this  hy  examining  each  4X4 
matrix,  however  this  is”; 
strout(std 

st="dif f icul t  and  thus  will  he  handled  hy  the  computer.”; 
strout (st ) ; 
return ; 

} 


pi  cl 32  (  )  { 

/*  This  subroutine  draws  another  surface  plot  */ 
char  *s t , *sp ; 
color(l ) j 

block( 0.0, 0.0, 100. 0,1 00.0) ; 
color(4) ; 

block (0.0, 29. 3, 100. 0,93.0) ; 
color (2 ) : 

strtxy ( 10 .0 ,98.0 ) » 

st="type  ==>  Continue,  Samples,  Quit"; 
strout (s  t ) ; 
color(7) ; 

b lock (40. 0,45. 0,71 .5,78.0) ; 
color(0) * 

st  =  ’*Region  Number  2"; 
s t rtxy (5.0 ,73.0 ) ; 
strout (st ) ; 

st=”Coherence  Limits  0.7"; 

strout (st ) 5 

st="— ’  ; 

•  •  •• 

sp=  ; 

strtxy (38. 5,63.7 ) ; 
strout (sp ) ; 
strout ( s  t ) ; 
strout (sp ) ; 
strout (st ) ; 
strout ( sp ) ; 
strout (st ) ; 
strout(sn) ; 

st=”  1*1  1  1  1”; 

strout ( st ) ; 

st=”40.00"; 
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strtxy(32.5,75.7) ; 
strout (s t ) ; 
strtxy (32 . 5 ,46. 2 ) ; 
s  t  =  33 . 021  —  * 
strout ( st ) ; 
strtxy (36. 0,42.7 ) i 

St="  147.00  140.03' ; 

strout  (s t. ) ; 

c  olor (0 ) ; 

circ ( ) ; 

circ2 (  ) ; 

circ3( ) ; 

return; 

} 


circ3()  { 


char  *0 

:,*e,*r,*t; 

0=”  oo 

o  ”; 

W="  o  0 

o  0  "; 

E="  0 

• 

O 

o 

o 

R="  o 

•  «». 

o 

o 

11^ 

o 

o 

o  ; 

strtxy(40.3,79.8 ) ? 
color (0  ) » 
strout (C) J 
strout (W) ; 
strout (E )  > 
strout (R ) ; 
strout (T ) ; 
strtxy (40. 9, 31.0); 
strout (E ) ; 
strout (R ) ; 
strout (E ) ; 
strout (E ) » 
strout (R ) ; 
dblvid(l  ); 
strout (W ) ; 
strtxy(40. 0,78.0) ; 
strout ( T ) ; 
strout (0 ) J 
s  trout (W ) ; 
strout (V) ; 
strout (P  ) ; 
s  trtxy (41 .0,78.7); 
strout (E) ; 
strout (W ) ; 
strout (E ) ; 
strout (T ) ; 
strout  (R  )  J 
dblwid (0 ) ; 
color(4) ; 

block( 39. 0,78. 0,1 00. 0,85.0); 
block(71  .5,44.0,100.0,85.0) ; 
return;  } 
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/*##############£#############£#*#######*########££#*£####££ 

#  This  section  of  cods  is  designed  to  give  the  user  prac-  * 

#  tice  visualizing  the  types  of  data  that  will  he  presented# 

#  in  the  actual  tracking.  It  is  basically  set  up  to  run  # 

#  four  types  of  data  depending  on  the  parameters  that  the  # 

#  user  tries  to  use.  Each  display  gives  the  examples  and  # 

#  then  tells  the  user  what  the  problem  areas  might  be,  if  # 

#  there  are  any.  This  is  the  fifth  section  of  the  main  # 

#  program  but  car.  be  called  up  by  itself  by  typing  Senerio  # 
#####################################################*####*/ 


int  choice, cont , run, region, track, c oh er, lath, latl, longh , longl 
char  *srun ,*sregi on ,*s track ,*scoher ,*sl ath .^s lat 1 ,*slongh ; 
char  f *B  ,*W#*Q,*V,*S ,*R,*T ,*Y,*slongl  f*top? 

/*  Setting  global  values  because  they  are  used  in 
many  of  the  displays  */ 


main()  {  /*  Senerio  section  of  program  */ 

char  cc; 

ramtek();  /*  initializing  the  Ramtek  subroutines  */ 
wri t  on ( 1 ) ; 

changcolor ( ) ;  /*  Establishing  a  new  color  table  */ 

colort(10); 

t op="type==>Menu ,  Location,  Peak,  Accuracy,  Surface,  Quit"; 
/*  Setting  a  global  string  that  gets  displayed  at  the 
top  of  the  majority  of  the  displays  */ 

cont=i; 
sregion=’’l0"  > 
srun="e"( ;  __ 
strack=i"2" ;  t 
scoher="l . 0" ? 

slath="35 . 45” ;  /*  initializing  global  values  */ 

slatl=”35 .00" ; 
s longh ="125.45" ; 
slongl=" 125.00” ; 
senm( ) ; 

while  (cont==l)  {  /*  while  #1  */ 

cc=retcha  r( ) ; 

switch(cc)  {  /*  switch  #1  */ 

/*  Switching  of  the  displays  dependent  on  the  desires 
of  the  user  at  the  keyboard  */ 
case  'm':  /*  displays  the  menu  */ 

senm ( ) ; 
break; ^ 

case  'p':  /*  displays  peak  data  */ 

senpO  J 
break; 

case  '1':  /*  displays  positional  data  */ 

senl( ); 
break; 


155 


case  'a':  /*  displays  the  accuracy  data  */ 

sena ( ) ; 
break? 

case  's':  /*  displays  the  surface  plots  */ 

sens ( ) ; 
break; 

case  'r':  /*  Return  */ 

pstop ( ) ; 
break; 

def aul t : 
cont=l ; 

}  /*  end  of  switch  #1  */ 

}  /#  end  of  while  #1  */ 

}  /*  End  of  Main  */ 


senrr( )  {  /#  This  display  presents  a  nenu  of  parameters 

that  can  be  altered  by  the  user  to  set  a 
better  view  of  the  situation  */ 


char  *st ,*sp; 
color(7 ) ; 

block( 0.3, 0.3, 123. 0,120.0); 
color (10 ) ; 

block(0 . 0,90. 0,1 00. 0,1 00.0) ; 
color (5) ; 

strtxy(10. 0,97.0 ) ; 

st="type  in  the  desired  numbers  or  zeros.”; 
strout (st )  5 
s trtxy (6.0, 86.0 ) ; 

st=”  There  are  a  cumber  of  parameters  that  you  can  change 
to  survey  different  tracks,"; 
strout (st ) ; 

st=”runs,  and  regions.  The  limits  are  listed  alone:  with  the 
present  value  of  the"; 
s  trout (s  t ) ; 

st="parameter.  When  the  block  appears  to  the  right  of  the 
present  value,  just  type”; 
strcut(st) ; 

st=”in  the  value  desired  followed  by  <cr>  (if  the  present 
value  is  okay  type  0  <cr>).”; 
strout (st ) ; 

•  t  m 

sp=  ; 
strout (sp ) ; 
strtxy (15. 0,58.0); 

St="  LIMIT  PARAMETER  PRESENT  VALUE 

NEW  value"; 


strout (s  t ) ; 
strout ( sp ) ; 

st="  1-25  REGION 

strout (s t ) ; 

st="  1-7  RUN 

strout (st ) ; 

st="  1-10  TRACE 
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COHERENCE 
LATITUDE(high) 
LATITUDE(lov) 
LONGITUDE(high) 
LONGITUDE (low) 


strout (st ) ; 
st="  0. 1-2.0 
strout ( s t ) ; 
st="  30.00-50.00 
strout ( st )  J 
st=”  30.00-50.00 
strout ( s  t ) ; 
st="l20. 00-140. 00 
strout (st  )  J 
st="l20. 00-140. 00 
strout (st )  ? 
strtxy(57.0,48.5) ; 

strout (sregion) ; /*  Prints  out  present  values  of  parameters*/ 

strout ( srun ) ; 

strout (strack) ; 

strout ( scoher ) ; 

strout ( slath  )  * 

strout (slatl ) » 

strout (slongh) ; 

strout ( slongl ) ; 

newval();  /*  calls  the  subroutine  that  checks  the 

values  being  inserted  by  the  user  */ 
senmaO;  /*  calls  for  a  new  display  */ 

if  (coher<=07)  {  /*  Establishes  what  set  of  displays  will 

be  presented  based  on  the  values  that 
were  just  inputted  by  the  user  */ 
if  ( (lath-latl )  <=  100) 
choice='c 
else 

choice='b'J 


} 

else  { 

if  ( (lath-latl )  <=  100) 
choice='d 
else 

choice='a 

} 

} 


senma()  {  /*  This  displays  the  basic  parameters  and  then 

allows  the  user  to  continue,  quit,  or  change 
the  parameters.  */ 

char  *so  ,cc,*st ; 
color (?} ; 

block (0.0, 0.0, 100. 0,1 00.0) ; 
color ( 10 ) J 

block (0.0, 90. 0,100. 0,100.0) ; 

color(5 ) ; 

strtxy (5 .0 ,97.0 ) ; 

strout ("type  ==>  Continue,  Menu,  Quit”)* 
sp=" 

strtxy(25. 0,60.0) ; 
st="RUN  NUMBER  " J 
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s trout ( st ) ; 
strout (sp) > 
st="REGION  NUMBER 
strout (st ) J 
strout (so) 5 
st="TRACK  NUMBER 
strout (st ) J 
strout (sp) » 
s t  =”C0EEREN CE  LIMIT 
strout (s  t ) , 
cc='z'; 

while  ( cc==' z ' )  { 
cc=retchar ( ) ; 
switch(cc)  { 
case  ' c 
senl ( ) ; 
break; 
case  'n't 
senm  ( ) ; 
break* 
case  'q': 
pstop ( ) ; 
break; 
default : 
cc='z ' ; 

} 

} 

} 


/*  Continue  #/ 

/*  displays  the  menu  */ 
/*  Quit  */ 


pstopO  {  /*  This  display  is  presented  anytime 

types  'q  and  then  finds  out  if  he 
wants  to  quit.  #/ 

char  ^st.^sptCb; 
color(3 ) ; 

block 0.0,0.0,100. 0,100.0) ; 
c ol or (2  ) ; 
sp=  ; 

strtxy (46. 0,83.0) ) 
st=”Do  you”; 
strout ( st ) ; 
strout (sp) ; 
st=" REALLY”; 
strout ( st ) ; 
strout (sp) ; 
s t=” WANT  TO”; 
strout (st ) ; 
strout (sp ) ; 
st “"RETURN  TO"; 
strout ( st ) ; 
strout (sp); 

strout("THE  MAIN");  strout(so); 
strout ("PROGRAM?"); 
st=  (y  /  n)  ; 


the  user 
really 
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strout ( st ) ; 
cb=retchar  ( ) ; 
if ( cb=='y  ' )  { 

cont=0>  /*  Sets  global  value  to  quit  senario  */ 
color (0 ) ; 

block(0.0 ,0.0,100.0,100.0) » 

} 

else 
senl ( ) ; 

} 


newval()  {  /*  This  subroutine  receives  the  inputs  of  the 

user  for  the  changing  of  the  parameters, 
evaluates  them,  rejects  any  that  exceed 
the  limits,  and  then  inserts  decimal  points 
where  necessary.  */ 

int  t , tcoher , tregi on , t run ,ttrack,tlath,tlatl, t longh , t longl ; 
t  =0 ; 

while  (t==0)  { 

color (15 ) ; 

bl ock (73. 0,45. 0,66.0, 50.0 ) ; 
strtxy(74. 0,49.0) ; 
color (5 ) > 

tregion=getnum( 10);  /*  changes  the  region  number  */ 

if  (tregion  !=  0)  { 

if  ((tregion  <=  25 )6& (t region  >=  1))  { 

i  toa (s region , tregi on ) ; 
region=tregionJ 
t=i; 

} 

else 

t  =0 ; 

} 

else 
t  =1 ; 

} 

t =0 ; 

while  (t==0)  { 

color (15); 

block( 73. 0,39.5,86. 0,45.0); 
s  t  r  t  xy  ( 74 . 0 , 43 . 0  )  ? 
color (5) ; 

trun=getnum(10 ) ;  /*  changes  the  run  number  */ 

if  (trun!=0)  { 

if  ( ( trun<=7) &&( trun>=l ) )  { 

i t  oa ( srun , trun ) ; 
run=t  run; 
t=i; 

} 

else 

t  =0 ; 

} 

else 
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t =1 ; 

} 

t =3 ; 

while ( t==0  )  { 

color ( 15 ) ; 

block (73.3,34. 3, 36. 0,39.0) J 
s trtxy( 74.0, 38.0 )  »* 
color (5  )  > 

ttrack=getnum ( 10) ;  /*  changes  the  track  number  */ 

if ( ttrack!=0)  { 

i f  ( ( 1 1 ra ck<=10 )&& ( 1 1 rack>=l ) )  { 

itoa (s track, t track) > 
track=t  track; 
t=i; 

> . 

else 

t=0; 

} 

else 

t  =1 ; 

} 

t=0; 

whi le ( t==0  )  { 

color (15) ; 

bl ock (73.0,27. 5, 86.0, 33.5 ) ; 

Strtxy(74.0,33.2)J 
color (5 ) J 

tcoher=getnum( 10) ;  /*  changes  the  coherence  limit  */ 

if  ( tcoher  !=  0 )  { 

if ( ( tcoher<=23)&&( tcoher >=01 ) )  { 

it oa(sco her, tcoher) ; 
coher=tcoher ; 
scoher  [4]  =scoher  [3]  ; 
scoher  [3]  =scoher  [2]  ; 

scoher  [2]  =  '.' ;  /#  inserts  a  decimal  ooint  */ 

t  =1 ; 

} 

else 

t  =0 ; 

} 

else 

t=i; 

> 

t=0 ; 

while (t==3)  { 

color (15 ) ; 

block(73. 0,23. 0,88. 0,29.0); 
strtxy (74.0,28.0) ; 
color (5 ) ; 

tlath=getnum(10 ) ;  /*  changes  the  high  latitude  value  */ 

if ( tlath ! =0 )  { 

if ( ( tlath<=5000)&&( t lath >2000 ) )  { 

i toa (slath , tlath ) ; 
lath=tlath» 
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s  lath f 6 
slath  [5 


t =1 ; 

} 


. =slath 

’5‘ 

'  =sla th 

A 

. =sla  th 

u 

1  —  '  0  • 

“  •  » 

/* 

/*  inserts  a  decimal  point  */ 


else 
t =0 ; 

} 


else 


t=i ; 

} 

t  =0  ? 

while (t==0)  { 

color (15) » 

hlock(73.0,l7.5,88.0,23.5) J 
Strtxy (74.0,23 .3) J 
color (5 ) ? 

tlat l=getnum (10 ) ;  /*  changes  the  low  latitude  value  */ 

if  ( t  la  1 1 !  =0  )  { 

if  ( (tlatl<5000)&&(  tlatl>=3000)5,&(tlatl<tlath) )  [ 


/*  Makes  sure  that  latitude  low  is  less  than  the 
high  latitude  */ 


=sla  tl  [S'. 

=  sla  tl  [4 
=sla tl  [3] J 

='.'t  /*  inserts  a  decimal  point 


it oa (slatl , tl atl ) » 
latl=tlati; 
slatl  [S' 
slatl  [5! 
slatl  [4; 

sla tl  [3]  =  " . ' ;  /*  inserts  a  decimal  point  */ 

t=l ; 

} 

else 

t=0; 

} 

else 

t=i; 

} 

t =0 ; 

while(t==0)  { 
color ( 15 ) J 

hi ock( 73. 0,12. 0,88. 0,18. 2) J 
Strtxy (74.0,18.0) ; 
c  ol or ( 5  )  > 

tlongh=getnum(10) ;  /^Changes  the  high  longitude  value*/ 
if ( tlongh!=0)  { 

if ( ( tl ongh< =14000 )&&( t 1 ongh>l2000 ) )  { 

itoa (slongh, tlongh) ; 
locgh=tlongh; 
s longh [6] =sl ongh  [5] J 
slongh [5] =sl ongh [4] ; 
slongh  [4]  =  si  ongh  [3]  i 

slongh  [3]  =  ;  /*  inserts  a  decimal  point  */ 

t  =1 ; 

} 


161 


else 

t  =0 ; 

} 

else 

t=l ; 

} 

t  =3 ; 

while ( t==0 )  { 

color (15 ) ; 

block (73. 0,8. 5, 68. 0,1 1.5) ; 
strtxy (74.0,13 .0) ; 
color(5 ); 

tlongl=getnum( 10) »  /*  changes  the  low  longitude  value  #/ 

if ( t longl ! =0 )  { 

if  ( (t  longl  <=14000)  £.&(  tlongl>=l2000  )&&(  tlongKtlongh) )  { 

/*  Makes  sure  that  the  value  of  low  longitude  is 
less  than  that  of  high  longitude  */ 
i t  oa ( s longl , t longl ) J 
longl=tlongl i 
s longl  (6] =slongl [5] J 
s longl  [5]  =sl  ongl  [4l  ; 
slongl  [4]  =slongl  [3]  ; 

slongl  [3] =  '. ' y  /*  inserts  a  decimal  point  */ 
t=l  > 

} 

else 

t  =0 ; 

} 

else 
t  =1 ; 

} 

} 

itoa(ptr.no)  /*  This  subroutine  changes  an  interger 

into  a  string  of  characters  */ 

char  *ptr; 
int  no* 

{ 

int  K; 

i f ( ( 5=no/10 )  ! =  0) 
ptr  =  itoa  (ptr  ,K) ; 

*ptr=no  +  '0'; 

*++ptr  = 
return (ptr ) ; 


senp()  {  /*  This  displays  the  peak  data  #/ 

char  *st  ,*sp; 
color (1 )  ; 

b lock (0.0, 0.0, 100. 0, 100.0 ) ; 
color (4 ) ; 

block(0. 0,15. 0,1 00. 0,90.0); 
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color (2 ) ; 

strtxy (10. 0,98.0); 
strout ( top ) ; 
color (5 ) ; 
strtxy( 5 .0 ,86.0 ) ; 

St="  RUN  NUMBER  6 

strout(st) ; 
sp=  » 
strout (sp ) ; 

st="Receipt  Time  Peak 

- Peak  Data - "  > 

strout (st ) ; 

st="  20-Feb-80  Number  STM/EM 
TAU  DOPPLER  Gamma-Sq’’*, 
strout(st) ; 
strout ( sp ) ; 
switch(choice )  { 


REGION  NUMBER  6  TRACS  NUMBER  9  J 


-REE  Station- 


Freq 


-PRD  Station- 
STM/BM  Freq 


/*  There  are  four  possible  sets  of  data 
can  be  displayed  dependent  on  the 
various  limits  set  by  the  user  */ 


case  'd ' : 
st="  00:00:00 
strout ( st); 

St=”  15:16:15 
strout (s  t ) ; 
st=”  15:16:15 
strout (st ) ; 
st="  15:33:19 
strout ( s  t ) J 
st="  15:50:23 
strout (st ) ; 

St="  16:07:2? 
strout ( st ) ; 
st="  16:08:31 
strout ( st ) ; 
st="  16:09:56 
strout (st) ; 
st="  16:11:34 
strout ( st ) ; 
str txy(4 .0 ,12.0); 


FORTH  TO  PROVIDE  DATA.  J 
strout(st) ; 

st="(  NOTICE  THE  TAU  VALUES  ALTERNATING  )"; 
strout (st ) ; 
break* 
case  'a': 


0 

0 

0 . 00 

0 

0.00 

3427 

1323024 

48.70 

1322029 

48.70 

3533 

1322031 

48.70 

2411020 

48.70 

3449 

1323024 

48.70 

1322030 

48.70 

3540 

1322031 

48.70 

2411021 

48.70 

3453 

1323025 

48.70 

1322030 

48.70 

3421 

1322032 

46.70 

2411320 

46.70 

3479 

1323024 

48.70 

1322031 

48.70 

3429 

1322031 

48.70 

2411023 

48.70 

:  TWO 

SETS  OF  ARRAYS  SWITCHING  BAG 

K  AND 

St="  16:52:56 
strout (st ) ; 

0 

0 

48.70 

0 

48.70 

s  t  =  "  16:52:56 
strout  (st )  J 

3542 

1333031 

48.70 

1346024 

48.70 

St=’  16:55:37 
strout (st ); 

3478 

1333041 

48.70 

1346031 

46.70 

st=  16:58:10 
strout (st ) ; 

3548 

133302? 

48 . 70 

1346028 

48.70 
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St=”  16:59:19 

3557 

1322107 

48.70 

2411321 

48.70 

strout (st ) ; 
st="  17:03:02 

3461 

1333034 

48.70 

1346021 

48.70 

strout (st )  > 

S  t  =  17:05:56 

3640 

1333051 

48.70 

1346039 

48.70 

strout (st ) J 
st="  17:09:42 

3582 

1322114 

48.70 

2411324 

48.70 

strout ( st ) J 
st="  17:11:48 

3533 

1333029 

48.70 

1346042 

48.70 

strout(st) ; 
strtxy (4 .0 ,12 .0 ) ; 

S t=" NOT  MUCH  ALTERNATING 

OF  ARRAY  PAIRS,  THUS  PROBABLY  NOT 

TOO  C-OOD  A 
strout ( st ) ; 
break? 
case  'b': 
st  =  ”  21:36:04 

TRACK.  5 

0 

0 

48.70 

0 

48.70 

strout ( st ) ; 
st=”  21:36:04 

3560 

2411051 

48.70 

1441024 

48.70 

strout(st) ; 
st="  21:37:09 

3532 

2412034 

48.70 

1442067 

48.70 

strout (st ) ; 

St="  21:37:52 

3571 

2411041 

48.70 

1441028 

48.70 

strout (st )  J 
st="  21:38:38 

3564 

2411038 

48. ”0 

1441021 

48.70 

strout (st ) ; 

St="  21:39:41 

3551 

2411336 

48.70 

1441025 

48.70 

strout (st ) ; 

St="  21:40:02 

3554 

2411028 

48.70 

1441020 

48.70 

strout  (st )  J 
st="  21:40:58 

3584 

2411031 

48. ^0 

1441024 

48.70 

strout (st ) ; 
st="  21:41:44 

3547 

2411035 

48.70 

1441013 

48.70 

strout  (st ) ; 

strtxy(4. 0,12.0) ; 

st=” NO  SWITCHING  0?  ARRAY 

PAIRS,  YE 

T  THERE 

IS  A  LOT 

OF 

VARIANCE  IN 
strout(st  )> 
St="THUS  A  VERY 
strout (st ) ; 
break; 
case  'c': 
st="  06:12:37 

THE  TAU  VALUES ,  ; 

POOR  TRACK.”; 

0  0 

46.70 

0 

48.70 

strout ( s  t ) ; 
st="  06:12:37 

3325 

1341021 

48.70 

1472365 

48.70 

strout (st) ; 
st=”  06:13:25 

3342 

1834261 

48.70 

2437001 

46.70 

strout (st )  ; 
st="  06:14:03 

3394 

1341036 

48.70 

1472341 

48.70 

strout(st) ; 
st="  06:14:57 

3327 

1834275 

48.70 

2437009 

48.70 

strout(st) ; 
st="  06:16:32 

3319 

1341028 

48.70 

1472355 

48.70 

strout ( s t ) ; 
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St=  06:17:29 
strout (s  t ) ; 

3364 

1341025 

48.70 

1472351 

48.70 

st="  06:18:54 
strout (st ) ; 

3318 

1834268 

48.70 

2437005 

48.70 

st="  06:20:21 

3343 

1341029 

48.70 

1472368 

48.70 

strout(st ); 
strtxy (4.0 ,12.0 ) J 

St*" FAIRLY  C-OOD  SWITCHING  OF  ARRAY  PAIRS  BUT  WITHIN  AN  ARRAY 
PAIR  THERE  IS  TOC  MUCH" » 
strout (st ) ; 

st=" VARIANCE  DUE  TO  THE  LOW  COHERENCE  LIMITS."; 
strout  (s t )  ,* 

■break? 

} 

} 

senl()  {  /*  This  subroutine  displays  the  position, 

course,  and  speed  of  the  contact  */ 

char  *st ,*sp; 
color (1 ) » 

block (3. 0,0. 0,1 03.0,1 00.0) ; 
color(4) ; 

block (0.0, 15.0, 130.0,93.0) ; 
color(2) ; 

strtxy(10. 0,98.0) > 
strout (top); 
color (5 ) ; 
strtxy(5. 0,86.0); 

St="  RUN  NUMBER  6  REGION  NUMBER  6  TRACK  NUMBER  9"; 

strout (s  t ) ; 

M  »* 

sp=  ; 


strout (sp ) ; 
st=" Water  Time 

Peak 

Position  Coordinates 

Courses  and 

Speeds"; 

strout (st ) ; 
st="  23-Feb-80 

_  ft 

n  _  ^  j  • 

Number 

Latitude  Longitude 

C  curs  e 

Speed  ; 
strout (st ) ; 
strout(sp) ; 
switch(choice)  { 


/*  Displays 
case  'a  ' : 

one  of 

four  possible  sets  of 

data  */ 

st-  16:52 
strout (st ) 

56 

0 

38.5000 

142.5000 

0.0 

st="  16:52 
strout ( s  t ) 

56 

3542 

38.4731 

142.4873 

142.0 

st=”  16:55 
strout (s  t ) 

37 

3478 

38.4422 

142.4791 

150.6 

st=”  16:58 
strout (st ) 

10 

3548 

38.4431 

142.4762 

147.3 

st="  16:59 
strout ( st ) 

19 

3557 

38.4401 

142.4750 

156.4 

St=”  17:03 
strout(st) 

02 

3461 

38.4324 

142.4775 

156.8 
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St="  17:05:56 

3640 

38.4246 

142.4689 

144.7 

strout (st ) ; 

St="  17:09:42 

3582 

38.4263 

142.4663 

136.2 

strout(st) ; 

St="  17:11 : 48 

3533 

38.4221 

142.4572 

149.7 

strout ( s  t ) ; 
strtxy (4.0 ,12.0); 

st=”POSSIBLY  A  GOOD  TRACK,  BUT  THE  SIZE  OF  THE  REGION  BE  INC- 
COVERED  IS  A  LITTLE"; 
strout (st ) ; 

st="TOO  LARGE  TO  GET  A  REAL  GOOD  PICTURE  OF  THE  SITUATION." 

strout (st  )  J 

break; 


st=”  21  :36  :04 

0 

36.5000 

143.5000 

0.0 

strout (st ) ; 
st=”  21:36:04 

3560 

36.4784 

143.6534 

020.5 

strout (st )  J 
st="  21:37:09 

3532 

36.5348 

143.5739 

034.6 

strout (st ) ; 
st="  21:37:52 

3571 

36.5762 

143.4936 

025.9 

strout (st ) ; 
st=”  21:38:38 

3564 

36.6139 

143.4467 

012.3 

strout (st ) ; 

St="  21:39:41 

3551 

36.6317 

143.4052 

005.3 

strout ( s  t ) ; 
st="  21:40:02 

3554 

35.6308 

143.3761 

014.7 

strout (st ) ; 

St="  21:40:58 

3534 

36.6536 

143.3465 

018.1 

strout ( st ) ; 
st="  21:41:44 

3547 

36.6738 

143.3263 

023.5 

strout ( st ) ; 
strtxy (4.0,12.0 ) ; 
st="POOR  TRACK  AS 

SEEN  BY 

TEE  COURSE 

AND  SPEED 

CHANGES, 

PROBABLY  DUE  TO  THE  J 
strout ( st ) ; 

st-" LARGE  AREA  AND  THE  LOW 

COHERENC 

LEVEL."; 

strout (st ) 5 
break; 
case  'c': 

St="  06:12:37 

0 

33.5000 

145.5000 

0.0 

strout (st ) ; 
st="  06:12:37 

3325 

33.4734 

145.5398 

228.4 

strout ( st ) ; 

St="  06:13:25 

3342 

33.4689 

145.5402 

235.6 

strout (st ) ; 

St=”  06:14:03 

3394 

33.4502 

145.5693 

243.5 

strout (st  ) ; 
st-"  06:14:57 

3327 

33.4294 

145.5728 

227.9 

strout (st  ) ; 
st=”  06:16:32 

3319 

33.3825 

145.5829 

222.5 

strout (st ) ; 

St="  06:17:29 

3364 

33.3518 

145.5962 

225.3 

strout (st  ) ; 
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st="  06:13:54  3318  33.3329  145.6036  233.1 

s trout (s t ) ; 

s  t=  06:20:21  3343  33.2ie5  145.6285  242.3 

s trout (st ) ; 
strtxy(4. 0,12.0) ; 

st="EVEN  THOUGH  TEE  COURSES  ARE  FAIRLY  STEAL!,  THE  SPEEDS 
ARE  FLUCTUATING"; 


strout (st ) ; 
st="GREATLY  DUE 

TO  THE  LOW 

COHERENCE 

limit. "; 

strout (st ) ; 
break; 
case  'd': 
st="  14:58:03 

0 

39.5000 

147.5000 

0.0 

s  trout ( s  t ) ; 
st="  14:58:03 

342? 

39.4711 

147.4707 

142.0 

strout (st ) ; 
st="  15:04:23 

3533 

39.4682 

147.4552 

154.7 

strout ( st ) ; 
st=”  15:14:30 

3449 

39.4212 

147.4139 

153.9 

strout(st) ; 
st=”  15:38:35 

3540 

39.3582 

147.4417 

160.3 

strout ( st ) ; 

St="  15:48:44 

3453 

39.3980 

147.4815 

161.6 

strout ( st ) ; 

St=”  15:49:31 

3421 

39.4021 

147.4739 

162.4 

strout(st); 
st  =  ”  15:50:56 

3479 

39.4219 

147.4632 

160.3 

strout ( st ) ; 
st="  15:52:34 

3429 

39.4037 

147.4297 

161.1 

strout (st ) ; 
strtxy (4.0 ,12 .0 ) 

f 

s t  =  ’ A  VERY  GOOD 

TRACK  WITH 

STEADY  COURSES  AND 

SPEEDS  ." ; 

strout ( st ) ; 
break; 

} 

} 

sena()  {  /*  This  subroutine  displays  the  Chi-Square 

scores  for  various  sets  of  data  */ 

char  #st,#sp; 
color (1 ) ; 

bl ock(0.0,0.0 ,100.0,1 00.0 ) ; 
color(4 ) ; 

block (0.0, 15. 3, 100. 0,90.0); 
col  or (2  ) ; 

strtxy(10. 0,98.0); 
strout ( top  ) ; 
color(5) ; 
s t rtxy(5 .0 ,86.0 ) ; 

st="  RUN  NUMBER  6  REGION  NUMBER  6  TRACK  NUMBER  9"; 

strout(st) ; 

••  «* 

sp=  ; 
strout (sp ) ; 

st=”Water  Tirre  peak  Prob  — CHI  Square  Scores  — 
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Meas  Residuals"; 


strout (st ) ; 
st="  23-Feb“80 

Number 

Score 

S  tagewise 

Cumulativ 

Deltat  Deltaf  » 

strout(st) J 
strout( sp) ; 
switch (choice )  { 

/#  Displays  one  of  four  possibl 

e  sets  of  data 

*/ 

case  'd': 
st="  14:58 

03 

0 

0.00 

0.0000 

0  .0000 

strout (st) 
st="  14:58 

03 

3427 

-1.80 

0.3171 

0.3171 

strout ( st ) 
st=”  15:04 

23 

3533 

“4.89 

0.0162 

0.1667 

strout ( s  t ) 
st="  15:14 

30 

3449 

-3.99 

0.4410 

0.2581 

strout ( s  t ) 
s  t="  15:38 

35 

3540 

“4 . 66 

1.4096 

0.2460 

strout (st ) 
st=’’  15:48 

44 

3453 

-4.81 

2.0796 

0.6527 

strout ( st ) 
st="  15:49 

31 

3421 

“4.31 

1.8945 

0 .8892 

strout (st ) 
st-"  15:50 

56 

3479 

-4.75 

2.0038 

0.9327 

strout (st ) 
st="  15:52 

34 

3429 

“4.89 

2.2693 

0.9402 

strout(st ) 
strtxy (4.0 , 
s  t=” OUTSTAf 

,12.3) ; 

JDING  CUMULATIVE 

SCORE  BY 

THE  FINAL  TIME 

PERIOD, 

THUS  A 
strout (st )  i 
break; 
case  'a': 
st="  16:52 

VERT  GOOD  TRACK. 

> 

1 

56  0 

• 

? 

0.00 

0 . 0000 

0 . 0000 

strout (st ) 
st=”  16:52 

56 

3542 

“1  .49 

0 . 1 43  5 

0.1435 

strout (st ) 
st-"  16:55 

37 

3478 

“1 .27 

0.2159 

0.1537 

strout (st ) 
st-"  16:58 

10 

3548 

-1.82 

0.5382 

0.3829 

strout(st) 
st-"  16:59 

19 

3557 

-1.95 

0.6547 

0.4690 

strout  (st ) 
st-”  17:03 

02 

3461 

-2.56 

1.1021 

0.7023 

strout ( st ) 
st-"  17:05 

56 

3640 

-1.13 

0.2371 

0  .6501 

strout (st ) 
st-"  17:09 

42 

3582 

-2.03 

0.6829 

0.6928 

strout (st ) 
s  t— "  17:11 

48 

3533 

-3.05 

0.7926 

0.7520 

strout ( st ) 
strtxy (4.0, 
s  t="  the  cur 

,12.0); 

iULATIVE 

SCORE  IS 

FAIR  BUT 

NONE  OF  THE  INDIVIDUAL 

SCORES 

IS  REAL 

high."; 
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strout ( st ) » 

break? 
case  'b': 
st  =”  21:36:04 

0 

0 . 00 

0 . 0000 

0 . 0000 

strout (st ) ; 
st®"  21:36:04 

3560 

1 

CD 

0.1021 

0.1021 

strout ( st ) ; 
st®"  21:37:09 

3532 

-1 .43 

0.2341 

0.1735 

strout (st ) ; 

St®"  21:37:52 

3571 

-1.78 

0.3417 

0.2638 

strout (st ) J 

St="  21:38:38 

3564 

-1 .93 

0.3176 

0.4173 

strout ( st ) ; 
st="  21:39:41 

3551 

-2.06 

0.3814 

0.4328 

strout  (s  t ) ; 
st-"  21:40:02 

3554 

-2.54 

0.4027 

0  .4458 

strout (st ) ; 
st®"  21:40:58 

3584 

-2.36 

0.3311 

0.4637 

strout (st )  5 
st®"  21:41:44 
strout (st ) ; 

3547 

-2.21 

0.3517 

0  .4528 

strtxy (4. 0,12.0) ; 
st="VERT  LOW  CUMULATIVE 

SCORE  AND  THUS 

A  VERT  POOR 

trace."; 

strout ( s  t ) ; 

break; 
case  'c': 
st-"  06:12:37 

0 

0.00 

0.0000 

0 . 0000 

strout ( st )  J 

St®"  06:12:37 

3325 

-0.83 

0.2134 

0.2134 

strout (st ) ; 

St="  06:13:25 

3342 

-1.52 

0.4327 

0.3463 

strout (st ) ; 
st®"  06:14:03 

3394 

-1 .83 

0.5621 

0 . 4743 

strout (st ) ; 

St®"  06:14:57 

3327 

-1.97 

0.7631 

0.6411 

strout (s  t ) ; 
st®"  06:16:32 

3319 

-2.24 

0.6428 

0.6229 

strout (st ) ; 
st®"  06:17:29 

3364 

-2.56 

0.6817 

0.7536 

strout (st ) ; 
st="  06:18:54 

3318 

-2.72 

0.9443 

0  .7836 

strout (s  t ) ; 
st®"  06:20:21 

3343 

-2.74 

0.9218 

0  .7721 

strout ( s  t ) ; 

c  +  T*tTvf4  0  1.2*0}  i 

st="FAlR  "CUMULATIVE  VALUES  tt5UT  LOW  INDIVIDUAL  VALUES  DUE  TO 
LOW  COHERENCE  LIMITS."? 


strout (st ) » 
"break; 


sens( )  {  /*  This  display  presents  surface  plots  */ 

char  *st ,*sp ; 
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0 


0 


> 


oo  0 

o  oo  ” ; 

o  o  " ; 
o  o  " ; 

0  0 
o  oO 

0 


»* 


T=”  o  o  0  ' ; 

color (4); 

block(0.0,0.0,100.0,100.0) ; 
color (1 )  ? 

block (0.0, 0.0, 130. 0,15.0) ? 
block( 0.0, 90. 0,1 00. 0,100.0) ; 
color( 5 )  J 

block (40 . 0 ,45 .0 , 71 . 5 , 78 . 0 ) J 
color (0) ; 
strtxy(4. 0,97.0 ) ; 
strout (top ) » 
switch(choice)  { 

/*  Displays  one  of  four  possible 

C  cl  S  0  D  * 

surl();  sur2();  sur3();  sur4(); 
strtxy(4. 0,12.0); 

S t  =*’ JUS T  A  LOT  OF  NOISE,  TOO  LOW  CGH 
LARC-F  AN  AREA.”; 


surface  plots  */ 


ERENCE  LIMITS  AND  TOO 


strout ( st ) ; 
break; 
case  'a': 
surl  (  ) ;  sur3 (  ) ; 
strtxy(4. 0,12.0) 5 

S  t="  NO  PATTERN  IN  THIS  LARGE  AREA” ; 
strout ( st ) ; 
break? 
case  'c ' : 

surl()>  sur2();  sur3(); 
strtxy(4. 0,12.0) ; 

st="TOO  MUCH  NOISE  DUE  TO  THE  LOW  COHERENCE  LIMITS"; 
strout ( st ) ? 


break; 
case  'd': 
sur4(  ) ;  sur5 (  ) ; 
strtxy (4.0,12.0) ; 

st=” GOOD  SOLID  PATTERN  DOWN  THE  LEFT  SIDE  OF  THE  REGION”; 

strout ( st ) ; 

break; 

} 

color (4 ) ; 

block (40 .0 ,78 .0 , 85 .0 , 90 .0  )  J 
block (71. 5, 45. 0,100. 0,85.0); 


surl(  )  { 

strtxy (40. 1 ,80.0); 
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strout (Q ) ; 
strout (E )  J 
strout (0) » 
strout (Y ) ; 
strout  (5 )  ; 
strout ( E  ) ; 
strout (T ) ; 

} 

sur2(  )  { 

strtxy(42.0,78.5); 
strout (R )  J 
strout ( T  ) ; 
strout ( V ) ; 
strout (E) ; 
strout ( Y ) ; 
strout (V )  J 
strout (E) ; 

} 

sur3 (  )  { 

s  trtxy (41 .0,81.5); 
dblvidd ); 
s trout (Q  )  J 
strout(W) ; 
strout (E )  J 

strout(W);  /*  Each  of  these  short  subroutines  draws  */ 

strout(R);  /*  some  circles  on  the  surface  plot  that  */ 

strout(O);  /*  is  presently  being  displayed  */ 

s trout (Y ) ; 
dblwid (0 ) ; 

} 

sur4 (  )  { 

strtxy(42.9,63.0) J 
strout(Y); 
strout (R )  J 
s  trout (W ) ; 
strout ( V) » 
strout (T ) ; 
strout (0 ) ; 

} 

sur5(  )  { 

strtxy(40. 0,60.0) ; 
strout (E )  ? 
strout (E )  J 
strout (V) ; 
strout (R ) > 
strout (E ) 5 
s  trout (Q ) J 
strout (R ) ; 
strtxy (43.6,78.0); 
dblwid (1 ) ; 
s  trout ( W) ; 
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strout (E ) ; 
strout (F ) ; 
strout (B ) ; 
strout (E ) ; 
strout (F ) ; 
strout (B ) » 
dblwid ( 0  )  J 
strtxy(41 .0,30.9); 
strout (B ) ; 
strout (M)  J 
strout  (N  ) ; 
strout (M) ; 
strout (E ) ; 
strout (N  ) ; 
strout (M )  J 
strtxy(40.2,79.5) ; 
strout (M ) ; 
strout (N ) ; 
strout (M) ; 
strout (M ) ; 
strout (3 )  J 
strout (N  ) ; 
strout (M) » 

} 


changcolorO  { 

/*  Fstablishes  a  new 
int  a  [161 


a  [0] 
a  [1] 
a  [21 
a  [31 
a  [41 
a  [51 
a  [6] 
a  [71 
a  [81 
a  [91 
a  [10 
a  [11, 
a  [12' 
a  [13 
a  [14 
a  [15 


clrtbl (10  ,a  ) ; 


tr ipl e(0 ,0,0); 
triple(15,0,0) ; 
tripl e(0 ,15,0) ; 
triple(0,0,15) ; 
triple(15,5,0) ; 
triple(2,0,6); 
triple(0,10,0) ; 
triple(2 ,6,10 )  J 
triple(6,10,2) ; 
tripl e( 10 , 2,6); 
triple  (13,5,2)5 
triple(5,2,13); 
triple  (2,13,5); 
triple(15,0,15); 

:  t riple ( 10,4,4); 
t  riple( 15 ,15 ,15  ) ; 


return; 

}  /*  End  of  the  Senario 


color 


/ 


table 


*/ 
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